VBA třída getter setter

VBA třída getter setter

' Add clsPerson Class to your file with this code:
Private mName As String
Public Sub DisplayName()
    MsgBox "My name is " & Me.Name
End Sub
Property Get Name() As String
    Name = StrConv(mName, vbProperCase)   'Can be formatted etc
End Property
Property Let Name(pName As String)
    mName = pName
End Property
' In a module-------------------------------------------
Sub TestMe()
    Dim oPerson As New clsPerson
    oPerson.Name = "john doe"
    oPerson.DisplayName
End Sub