Option Explicit

Private m_KlasseninterneVariable As Variant '<~~ Datentyp wählbar
'

Public Property Get EigenschaftsName() As Variant
    EigenschaftsName = m_KlasseninterneVariable
End Property

Public Property Let EigenschaftsName(ByVal vNewValue As Variant)
    m_KlasseninterneVariable = vNewValue
End Property

Verwendung:

Option Explicit

Sub main()

Dim c As Klasse1

    'Wertzuweisung
    c.EigenschaftsName = "Test"
    
    'Ausgabe
    MsgBox c.EigenschaftsName
    
End Sub

Hinweis:

Du möchtest in den seltesten bis gar keinen Fällen, dass der Variablenwert von ausserhalb Deiner Klasse verändert werden kann.