Ciao antonyh.c,
prova in questo modo:
codice:
Private Sub Command1_Click()
    
    Dim TxtLen As Long
    Text2.Text = Val(Text1.Text)
    
'SelStart se non è selezionato nessun testo, indica la
'posizione del punto di inserimento:
    TxtLen = Len(Text2.Text)
    Text2.SelStart = TxtLen
'Sposta lo stato attivo sul controllo Txt2:
    Text2.SetFocus

End Sub