Private Sub cmdAufgabe4_Click()
 
    Dim bytKinderzahl As Byte   'Dieser Befehl darf nicht geändert werden
    bytKinderzahl = Me.txtKinder
 
 
     Select Case Me.txtKinder
 
        Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
          Exit Sub
 
        Case Is > 10
            MsgBox "Sind Sie sicher, dass Ihre Eingabe von " & Me.txtKinder & "" & _
              "Kindern korrekt ist?",   _vbYesNo, "ACHTUNG!"
          Exit Sub
 
 
       Case Is > 256    'ab hier funktioniert mein Code nicht mehr
 
            MsgBox "Die von Ihnen eingegebene Kinderanzahl ist zu groß!" & vbCr _
              & "Korrigieren Sie ihre Eingabe!", vbCritical, "Fehlerhafte" & _
              "Eingabe"
            Exit Sub
 
 
    Case Else
 
               MsgBox "" & vbCr & "Korrigieren Sie bitte Ihre Eingabe und geben" & _
                 "Sie die Anzahl Ihrer Kinder ein.", vbInformation, _
                 "Fehlerhafte Eingabe"
            Exit Sub
 
                End Select