perché non provi così:

codice:
Private Sub Seleziona()
MioForm.ActiveControl.selStart = 0
MioForm.Activecontrol.selLenght = Len(Mioform.ActiveControl.Text)
End Sub
Passavo di qua ed ho letto il messaggio penso che così sia più semplice ed intuitivo, però non so se funziona mi è venuto in mente al momento