Ciao.

Guarda questo codice:

codice:
' * Gestione dei dati digitati riguardanti l'importo della fattura
Private Sub txtImporto_KeyPress(KeyAscii As Integer)
   Select Case KeyAscii
      Case 0 To 31, 44, 48 To 57    ' Caratteri di controllo, virgola e numerici
         ' dati accettati
      Case Else
         KeyAscii = 0
   End Select
End Sub
Credo faccia ampiamente al caso tuo perché permette solo l'inserimento di numeri, della virgola e la pressione di altri tasti di controllo (es. Backspace, Canc ecc.).

Appena la casella di testo perde il focus, potresti formattare il testo mediante:

codice:
txtImporto.Text = Format(txtImporto.Text, "###,##0.00")
Fammi sapere.