[2008] Find all strigns of a certian length?

[Deathader]

Hey!

What I'm trying to do is scan a txtbox, and add all the strings that are 32 chars long to my listbox. I found this function:

   Public Function GBA(ByRef strSource As String, ByRef strStart As String, ByRef strEnd As String, ByVal lstAdd As ListBox, Optional ByRef startPos As Integer = 0) As String
        Dim iPos As Integer, iEnd As Integer, strResult As String, lenStart As Integer = strStart.Length

        Do Until iPos = -1
            strResult = String.Empty
            iPos = strSource.IndexOf(strStart, startPos)
            iEnd = strSource.IndexOf(strEnd, iPos + lenStart)
            If iPos <> -1 AndAlso iEnd <> -1 Then
                strResult = strSource.Substring(iPos + lenStart, iEnd - (iPos + lenStart))
                lstAdd.Items.Add(strResult)
                startPos = iPos + lenStart
            End If
        Loop

        GBA = ""
    End Function

But it doesn't really help me :P

I also found

 if string1.length = 32 then....

but I don't know how I can use it.

Thanks,
Alex