Option Explicit
Dim a As Long
Dim b As String
 
 
Private Sub Form_Load()
a = 65535
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
 
 
    b = Val(Text1.Text)
    If Len(b) > 4 Or b > a Then
        Text1.Text = ""
    End If
 
   If InStr("1234567890" & Chr$(8), Chr$(KeyAscii)) = 0 Then
      KeyAscii = 0
   End If
 
End Sub