Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 44
    If Text1.Text Like "*,*" Then KeyAscii = 0
Case 8, 48 To 57
Case Else
    KeyAscii = 0
End Select
End Sub
 
Private Sub Text1_LostFocus()
If Text1.Text = "" Or Text1.Text = "," Then Text1.Text = "0"
Text1.Text = Format(Text1.Text, "#,##0.00")
End Sub