Private Sub Text1_KeyPress(KeyAscii As Integer)
  If InStr("1234567890," & Chr$(8), Chr$(KeyAscii)) = 0 Then
    KeyAscii = 0 
  Else
    If KeyAscii = 44 Then
      If InStr(Text1.Text, ",") > 0 Or Text1.SelStart = 0 Then
        KeyAscii = 0
      End If
    End If
  End If 
End Sub