The difficult way is not to bad, if you want local variables you can generate the code below with "add procedure" from the tools menu
Private sData As String
Public Property Get SomeThing() As String
SomeThing = sData
End Property
Public Property Let SomeThing(ByVal vNewValue As String)
sData = vNewValue
End Property
============================================================
'C' is shorthand for Confusion, 'C++' much more confusion...