Try this:

Code:
MsgBox Len(Left(Text1.Text, Text1.SelStart))