Una cosa del genere ti può servire?
Private Sub SelezionaTesto()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub