Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        If rbtn_innerhalb.Checked = True And txt_kmh.Text <> "" Then
            MsgBox(Innerhalb(txt_kmh.Text), MsgBoxStyle.Information)
        End If
    End Sub
 
    Private Function Innerhalb(kmh As String) As String
        Select Case kmh
            Case Is <= 10
                Return "Es ist ein Bußgeld in Höhe von 15€ zu erwarten"
            Case Is <= 15
                Return "Es ist ein Bußgeld in Höhe von 25€ zu erwarten"
            Case Is <= 20
                Return "Es ist ein Bußgeld in Höhe von 35€ zu erwarten"
            Case Is <= 25
                Return "Es ist ein Bußgeld in Höhe von 80€ und 1 Punkt zu" & _
                  "erwarten"
            Case Is <= 30
                Return "Es ist ein Bußgeld in Höhe von 100€ und 3 Punkte zu" & _
                  "erwarten"
            Case Is <= 40
                Return "Es ist ein Bußgeld in Höhe von 160€, 3 Punkte und 1" & _
                  "Monat Fahrverbot zu erwarten"
            Case Is <= 50
                Return "Es ist ein Bußgeld in Höhe von 200€, 4 Punkte und 1" & _
                  "Monat Fahrverbot zu erwarten"
            Case Is <= 60
                Return "Es ist ein Bußgeld in Höhe von 280€, 4 Punkte und 2" & _
                  "Monate Fahrverbot zu erwarten"
            Case Is <= 70
                Return "Es ist ein Bußgeld in Höhe von 480€, 4 Punkte und 3" & _
                  "Monate Fahrverbot zu erwarten"
            Case Else
                Return "Es ist ein Bußgeld in Höhe von 680€, 4 Punkte und 3" & _
                  "Monate Fahrverbot zu erwarten"
        End Select
    End Function