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