Dim ary() As String = {"aa", "bb", "cc"} Dim stary() As String = {"2", "9", "1"} Dim hash As New Hashtable For i As Integer = 0 To ary.Length - 1 hash(stary(i)) = ary(i) Next