I normally use something like:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8, 46, 48 To 57 'backspace, dec point & numbers only
Exit Sub
Case Else
KeyAscii = 0
Beep
End Select
End Sub
You still need to stop cut&paste though
Good Luck
johnwm