[RESOLVED] Is there a better way to do this

[jmsrickland]

   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