Public Function str2Array(xString As String) As String() Dim tmpArray() As String Dim tmpchar As String ' /* For Each Character In The String */ For I = 1 To Len(xString) ' /* Retrieve The Character */ tmpchar = Mid(xString, I, 1) ' /* Push It Into The Temporary Array */ spush tmpArray, tmpchar Next I ' /* Return The Array To The Calling Procedure */ str2Array = tmpArray End Function