Usa all'interno della routine KeyPress l'istruzione SelStart, la sintassi è
posiz = TuoCampoTaxt.SelStart

Ho provato e mi funziona (con VB5).

Ciao