Code:
Dim n As Long
Dim tempArray() As Byte
ReDim tempArray(Len(StringData))
For n = 1 To Len(StringData)
tempArray(n - 1) = Asc(Mid(StringData, n, 1))
Next n↧
[RESOLVED] Is there a better way to do this
↧