Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
 
 
  Select Case KeyAscii
    Case Asc("0") To Asc("9"), 8, 13, 46,   
 
    Case 44
    KeyAscii = 46                                
 
 
    If (KeyAscii = 46 Or KeyAscii = 44) And InStr(Text1(1).Text, Chr$( _
      KeyAscii)) > 0 Then
      KeyAscii = 0
     End If
 
 
     Case Else
 
 
 
 
   KeyAscii = 0
  End Select
End Sub