Dim As String keys(1 To 5) = {"1", "2", "3", "4", "5"}
Dim As String values(1 To 5) = {"one", "two", "three", "four", "five"}
Dim As String hash(Lbound(keys) To Ubound(keys))
Dim As Integer i, temp

For i = Lbound(values) To Ubound(values)
    temp = Val(keys(i))
    hash(temp) = values(i)
Next i

For i = Lbound(hash) To Ubound(hash)
    Print keys(i); " "; hash(i)'; " "; i
Next i
Sleep