[Solved] Mid() Problem

[pushad]

For some unknown reason I can't get the Mid() function working properly. I'm just trying to read each character, one by one, from a textbox but it's not working. Here's what I have:

For i = 0 To (Len(Text1.Text) - 1)
    MsgBox (Mid$(Text1.Text, i, 1))
Next i

I get the error "Invalid Procedure Call or Argument" when I try to run it. Any ideas?

[Edgemeal]

For i = 1 To Len(Text1.Text)
    MsgBox Mid$(Text1.Text, i, 1)
Next i

[pushad]

For i = 1 To Len(Text1.Text)
    MsgBox Mid$(Text1.Text, i, 1)
Next i

*facedesk*

Thanks