ハッシュテーブル

Private Function hogeHashTable() As Boolean

  Dim ht As Hashtable
  Dim strKey As String
  Dim strArray As String()
  Dim strVal As String

  ht = New Hashtable

  strKey = "01"
  strArray = New String() {"japan", "nippon"}
  ht.Add(strKey, strArray)

  strKey = "02"
  strArray = New String() {"pen", "enpitsu"}
  ht.Add(strKey, strArray)

  If ht("01") Is Nothing Then
  Else
    strVal = CType(ht("01"), Array)(0)  'japan
    strVal = CType(ht("01"), Array)(1)  'nippon
  End If

  If ht("02") Is Nothing Then
  Else
    strVal = CType(ht("02"), Array)(0)  'pen
    strVal = CType(ht("02"), Array)(1)  'enpitsu
  End If

End Function

連想配列。結構使える。