Riposto il codice:
codice:
car = Right(Text1.Text, 1)
'seleziona l'ultimo carattere inserito e lo salva nella variabile salva

If car <> "" And IsNumeric(car) = False Then
'imposta le condizioni per accettare solo numeri

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
'nel caso in cui sia inserito un carattere non numerico allora considera tutto il contenuto di text1 ad eccezione dell'ultimo carattere, in quanto non numerico

Text1.SelStart = Len(Text1.Text)
'imposta la selezione all'ultimo carattere, altrimenti per scrivere "casa" ti ritroveresti "asac"..

End If
1) "Catturo" l'ultimo carattere inserito
2) Imposto le condizioni: se è diverso da "" e non è un numero allora
3) prendo il contenuto della casella di testo, ad eccezione dell'ultimo carattere che corrisponde al carattere inserito
4) imposto la selezione sull'ultimo carattere

Ammettiamo che nella casella di testo io abbia già questi tre caratteri: "123"
Voglio inserire la lettera "a"

1) catturo la a (cioè l'ultimo carattere della stringa 123a)
2) condizioni
3) text1.text = 123 (senza a perchè non è numerico, con la funzione left
4) imposto la selezione su 3, quindi vedi una cosa del genere

123| con la barra che lampeggia in quanto puoi scrivere...altrimenti sarebbe stato |123 e se aggiungi 4 ti viene 4123..

Spero di essere stato più chiaro..

ciao