Simple...
Just run the code but save the character values to corresponding array elements instead.
/the code
Dim i as long, MyArray() As Integer
Redim MyArray(Len(TheString)-1) As Integer
For i = 1 to len(TheString)
MyArray(i-1) = Asc(Mid(TheString,i,1))
Next i
/end code
Now it's an array of integers.