VBA01

■文字列型 読み書き可能な「Name」プロパティの作成[ clsPropertyTest ]
Private My_Name          As String
--------------------------------------------------------------------------------
'プロパティの書き込み時に呼び出される
Public Property Let Name(ByVal In_Name As String)
    My_Name = In_Name '引数 In_Name を、バッファ My_Name に代入
End Property
--------------------------------------------------------------------------------
'値の読み取り時に呼び出される
Public Property Get Name() As String
    Name = My_Name 'バッファ My_Name の値を返す
End Property

■プロパティの書き込みと読み込み[ Module1 ]
Sub TEST1()
    Dim ClassObject As clsPropertyTest
    Dim BufferValue As String
    Set ClassObject = New clsPropertyTest 'インスタンスを作成
    ClassObject.Name = "SUZUKI"    '【値の書き込み】Property Let が実行される
                          '（My_Name に "SUZUKI" が代入される）
    BufferValue = ClassObject.Name '【値の読み込み】Property Get が実行される
                                   '（My_Name から値を取得し "SUZUKI" が返される）
    Set ClassObject = Nothing '使い終わったクラスは、必ず解放します
End Sub