Parsing a String

[ChristmasApe]

Hi,

I was wondering if anyone could give me a little direction in parsing a string (a phrase) into indivdual characters and then loading those individual characters into a control array of labels.

Can I do this using the Mid control?

[nishantp]

k i wrote u a function that returns an array containing each letter of a string in one element. Requires VB6.

Function LetterArray(strText As String) As String()
    Dim i As Long
    Dim lngLen As Long
    Dim aryOut() As String
    lngLen = Len(strText)
    ReDim aryOut(lngLen)
    For i = 0 To lngLen
        aryOut(i) = Mid(strText, i + 1, 1)
    Next
    LetterArray = aryOut
End Function

[ChristmasApe]

Thank you!

[nishantp]