what I like to do is to include a 'Dump' method in my class that I use to display variables during development
The method can be as elaborate or as raw as I think might be needed
I usually use the class Initialization to set Null values
Option Explicit
Sub drv()
Dim Tom As New clsPerson
Dim Mary As New clsPerson
With Tom
.Gender = "Male"
.Income = 100000
.IsMarried = True
.LastName = "Smith"
.Name = "Thomas"
End With
Call Mary.Add("Mary", "Jones")
Call Tom.Dump
Call Mary.Dump
End Sub
Option Explicit
Private m_strName As String
Private m_strLastName As String
Private m_strGender As String
Private m_blnIsMarried As Boolean
Private m_dblIncome As Double
Private Sub Class_Initialize()
Name = "-"
LastName = "-"
Gender = "-"
IsMarried = False
Income = -1
End Sub
Sub Add(FN As String, LN As String)
Name = FN
LastName = LN
End Sub
Sub Dump()
Dim s As String
s = "Name : " & Name & vbCrLf
s = s & "Last Name : " & LastName & vbCrLf
s = s & "Gender : " & Gender & vbCrLf
s = s & "Married : " & IsMarried & vbCrLf
s = s & "Income : " & Format(Income, "$#,##0")
Call MsgBox(s, vbInformation + vbOKOnly, "Dump 'clsPerson'")
End Sub
Property Get Name() As String
Name = m_strName
End Property
Property Let Name(ByVal strName As String)
m_strName = strName
End Property
Property Get LastName() As String
LastName = m_strLastName
End Property
Property Let LastName(ByVal strLastName As String)
m_strLastName = strLastName
End Property
Property Get Gender() As String
Gender = m_strGender
End Property
Property Let Gender(ByVal strGender As String)
m_strGender = strGender
End Property
Property Get IsMarried() As Boolean
IsMarried = m_blnIsMarried
End Property
Property Let IsMarried(ByVal blnIsMarried As Boolean)
m_blnIsMarried = blnIsMarried
End Property
Property Get Income() As Double
Income = m_dblIncome
End Property
Property Let Income(ByVal dblIncome As Double)
m_dblIncome = dblIncome
End Property