Ciao LMondi
ben ritrovato ho guardato un po' il tuo codice, chiaramente eccellente, anche se sono l'ultimo a giudicare il lavoro di GENI!
Mi sono permesso solamente di sostituire, spostare e aggiungere il codice in modo leggermente diverso.

Questo l'ho spostato in LostFocus:
Txt2.Text = CtrS(Txt1.Text)

Nell'evento KeyPress ho inserito questo:
Select Case KeyAscii
Case 0 To 31, 44, 48 To 57
Case Else
MsgBox "Sono ammessi solamente caratteri numerici!", vbCritical, "Info Fatture"
KeyAscii = 0
End Select

Sembra funzionare bene ma come al solito mi perdo in un bicchiere d'acqua, cosi' facendo mi accetta la virgola nell'evento KeyPress, ma il punto l'ho metto solamente in lostfocus.
So' che è un problema di codici ascii ma se gentilmente puoi (o potreste) aiutarmi mi faresti un piacere.
Come al solito grazie infinite
vrclaudio