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

   Dim kinder As String = "5"
 
   Dim bytKinder As Byte
   If Not Byte.TryParse(kinder, bytKinder) Then
       MsgBox("Seltsame Eingabe - Zahl erforderlich (0-255)!")
   End If

If Integervariable > 10 orelse Integervariable < 0 then
   msgbox("unplausible Eingabe (bitte zwischen 0 und 10 eingeben")
End If

   Dim intKinder As Integer
 
    If Not Integer.TryParse(kinder, intKinder) Then
       MsgBox("Seltsame Eingabe - positive Ganz-Zahl erforderlich")
    End If
 
    Dim r As MsgBoxResult
 
    If (intKinder > 10 OrElse intKinder < 0) Then
       r = MsgBox("Bitte Zahl zwischen 0 und 10 eingeben", 
           MsgBoxStyle.OkCancel Or MsgBoxStyle.Exclamation)
 
       If r = MsgBoxResult.Cancel Or intKinder > 255 Then Exit Sub
    End If

Zitat:

Hallo zusammen, bytKinderzahl = Me.txtKinder Select Case Me.txtKinder

Dim strContent_TextBox As String = Me.txtKinder

Dim bytKinderzahl As Byte   
    bytKinderzahl = Me.txtKinder