Here is what I ahve

Code:
Function ScrambleText(Thetext As String)
    'sees if there's a space in the text to
    '     be scrambled,
    'if found space, continues, if not, adds
    '     it
    findlastspace = Mid(Thetext, Len(Thetext), 1)


    If Not findlastspace = " " Then
        Thetext = Thetext & " "
    Else
        Thetext = Thetext
    End If
    'Scrambles the text


    For scrambling = 1 To Len(Thetext)
        thechar$ = Mid(Thetext, scrambling, 1)
        Char$ = Char$ & thechar$


        If thechar$ = " " Then
            'takes out " " space from the text left
            '     of the space
            chars$ = Mid(Char$, 1, Len(Char$) - 1)
            'gets first character
            firstchar$ = Mid(chars$, 1, 1)
            'gets last character (if not, makes firs
            '     t character only)
            On Error GoTo cityz
            lastchar$ = Mid(chars$, Len(chars$), 1)
            'finds what is inbetween the last and fi
            '     rst character
            midchar$ = Mid(chars$, 2, Len(chars$) - 2)
            'reverses the text found in between the
            '     last and first
            'character


            For SpeedBack = Len(midchar$) To 1 Step -1
                backchar$ = backchar$ & Mid$(midchar$, SpeedBack, 1)
            Next SpeedBack
            GoTo sniffe
            'adds the scrambled text to the full scr
            '     ambled element
cityz:
            scrambled$ = scrambled$ & firstchar$ & " "
            GoTo sniffs
sniffe:
            scrambled$ = scrambled$ & lastchar$ & firstchar$ & backchar$ & " "
            'clears character and reversed buffers
sniffs:
            Char$ = ""
            backchar$ = ""
        End If
    Next scrambling
    'Makes function return value the scrambl
    '     ed text
    ScrambleText = scrambled$
End Function
usage i tried real quick

ScrambleText(Text1.Text)


it keeps saying compile error and highlighting this line

Code:
    findlastspace = Mid(Thetext, Len(Thetext), 1)
it highlights findlastspace