I'm not sure why I want to do this, but it seems like I used to know how. Now I cant get it to work.
The code would be something like:
Public Sub FormattedString()
'*** I want to break the string up into an array of
'*** characters and reverse it.
Dim strArray() as String
strArray = ToArray(strString)
Msgbox "strArray: " & strArray
Private Function ToArray(strString As String) As String()
Dim strArray() As String
Dim intPointer As Integer
Dim intArrayPointer as Integer
Dim strLen As Integer
intArrayPointer = 1
strLen = Len(Trim(strString))
Debug.Assert Len(Trim(strString)) < 255
For intPointer = strLen To 1 Step -1
strArray(intArrayPointer) = Mid(strString, intPointer, 1)
intArrayPointer = intArrayPointer + 1
Next ' intPointer
ToArray = strArray
I've tried several combinations of parentheses and I've done the Google search. None of the stuff I found worked.
Any printable suggestions? ;}