○VB6連想配列

Private data As Object

Private Sub Form_Load()
    
    Set data = CreateObject("Scripting.Dictionary")

    data("りんご") = "Appleです"
    data("big") = "Bigです'"
    data("車") = "car"
    data("d") = "D"

End Sub

Private Sub Command1_Click()
    
    Dim str As String
    str = data("りんご")
    MsgBox (str)

End Sub


▼出力結果

Appleです

■オブジェクトの参照を格納することも出来ます
フォームに Text1 Text2 が貼り付けられているとします

Dim data As Object

Private Sub Form_Load()

    Set data = CreateObject("Scripting.Dictionary")

    Set data("t1") = Text1
    Set data("t2") = Text2

End Sub

Private Sub Command1_Click()

    data("t1").Text = "t1"

End Sub