Private Sub Text1_KeyPress(KeyAscii As Integer)
' Bei der Eingabe werden nur Zahlen zugelassen
If InStr("0123456789", Chr$(KeyAscii)) = 0 And KeyAscii <> vbKeyBack Then _
  KeyAscii = 0
End Sub
 
Private Sub Text1_LostFocus()
' Hier wird geprüft ob die Zahl im gältigen Bereich liegt
If CLng(Text1) > 0 And CLng(Text1) <= 32768 Then
  MsgBox "Zahl ist OK"
Else
  MsgBox "Zahl muß größer 0 und kleiner 32769 sein !"
End If
End Sub