Non avevo capito bene la domanda...qualcosa del genere può servire?
codice:
Private Sub Form_Load()
    SelezionaTesto Text1
End Sub
    
Private Sub SelezionaTesto(controllo As Control)
    If TypeOf controllo Is TextBox Then
        controllo.SelStart = 0
        controllo.SelLength = Len(controllo )
    End if
End Sub