Ciao..puoi modificare codesta funzione, per esempio:
codice:
Private Sub Text1_Change()
car = Right(Text1.Text, 1)
If car <> "" And car = "," Then Exit Sub
If car <> "" And IsNumeric(car) = False Then
    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
    Text1.SelStart = Len(Text1.Text)
End If
End Sub
Ciao..