Private Sub Combo1_Validate(Cancel As Boolean)
  ' Prüfen!
  If Val(Combo1.Text) < 0 Or Val(Combo1.Text) > 42195 Then
    MsgBox "Ungültige Eingabe!"
    Cancel = True
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de