Cursor Pos into TextoBox

How can I know the position of the cursor into the TextBox?

Code:

---

Dim iPos as Long

iPos = Text1.SelStart

---