una bella fila di domande
in pratica un programmino belle fatto.

cmq ho realizzato qualcosa del genere con circa 130 text collegate ad db.

ora se ti posto il codice è un casino

per le sole cifre in keypress

NumerInt = False
If ValAscii = vbKeyBack Or ValAscii = vbKeyTab Or ValAscii = vbKeyReturn Then Exit Function
If ValAscii < 48 Or ValAscii > 57 Then NumerInt = True ' accetta cifre 0 e 9.

per passare da una text all'altra intercetti il tasto invio in keypress

If KeyAscii = 13 Then
KeyAscii = 0 ' evitare il beep
Else
SendKeys "{Tab}" ' simulare il tasto tab
End If
End If

per formattare le text nell'evento validate o lostfocus

text1.text = format(text1.text, "#,##0.00") 'il formato dell'euro

il numero lo stabilisci in maxlength

anche il testo esistente si può sovrascrivere con selstart ' in pratica posizioni il cursore all fine del testo esistente

in alternativa con una variabile prima leggi la text e poi ricrei la stringa usando

mistr = text1.text
text1.text = text1.text & mistr

by