I want to get 36 classes in VBA converted to c# classes. These are of varying length, from about 10 lines to the largest being up around 1000 lines. Classes are attached.
## Deliverables
Example of average sized class:
*
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "c_PhoneNumber"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private m_Number As String, m_SubscriberNumber As String, m_CountryCode As String, m_AreaCode As String
Public Property Get Number() As String
Number = m_Number
End Property
Public Property Let Number(ByVal vNewValue As String)
m_Number = PhoneFormat(vNewValue)
End Property
Public Property Get CountryCode() As String
If Not m_CountryCode = "" Then
CountryCode = m_CountryCode
Else
CountryCode = "61"
End If
End Property
Public Property Let CountryCode(ByVal vNewValue As String)
m_CountryCode = vNewValue
End Property
Public Property Get AreaCode() As String
AreaCode = m_AreaCode
End Property
Public Property Let AreaCode(ByVal vNewValue As String)
m_AreaCode = vNewValue
End Property
Private Function PhoneFormat(ByVal PhNum As String) As String
Dim pNum As String
If Not PhNum = "" Then
If Not Left(Trim(PhNum), 1) = "+" Then
pNum = Replace(PhNum, "(", "")
pNum = Replace(pNum, ")", "")
pNum = Replace(pNum, " ", "")
Else
pNum = PhNum
End If
If pNum Like "04????????" Then
pNum = Format(pNum, "0### ### ###")
ElseIf pNum Like "0?????????" Then
[login to view URL] = Val(Left(pNum, 2))
[login to view URL] = Right(pNum, 9)
pNum = Format(pNum, "0# #### ####")
Else
pNum = PhNum
End If
PhoneFormat = pNum
End If
End Function
Public Property Get SubscriberNumber() As String
SubscriberNumber = m_SubscriberNumber
End Property
Public Property Let SubscriberNumber(ByVal vNewValue As String)
m_SubscriberNumber = Trim(vNewValue)
End Property*