VB6.0でDictionary(ハッシュテーブル)は、以下のように使います。
まず、参照設定で「Microsoft Scripting Runtime」を追加します。
Dim dict As New Dictionary
'要素を追加する。
dict.Add "1", "aaa"
dict.Add "2", "bbb"
'キーから値を取得する
MsgBox dict("2")
'特定のキーが存在するか確認する
If dict.Exists("2") Then
MsgBox "存在します。"
Else
MsgBox "存在しません。"
End If
'値からキーを取得する
Dim i As Integer
For i = 0 To dict.Count - 1
If dict.Items(i) = "bbb" Then
MsgBox "キーは" & dict.Keys(i) & "です。"
Exit For
End If
Next
'特定のキーの要素を削除する
dict.Remove "2"