'Dimension a numerical and string array
Dim myArray(5)
Dim myStringArray$(5)

'Fill both arrays with the appropriate data
For i = 0 To 5
    myArray(i) = i
    myStringArray$(i) = "String - " + str$(i)
Next i

'Set two variables with the names of each array
numArrayName$ = "myArray"
strArrayName$ = "myStringArray"

'Retrieve the array data by evaluating a string
'that correlates to the array
For i = 0 To 5
    Print Eval$(numArrayName$ + "(" + str$(i) + ")")
    Print Eval$(strArrayName$ + "$(" + str$(i) + ")")
Next i