vy=16
 
 
 
If rbtn_innerhalb.Checked = True Then
    If vy <= 10 Then 
        MsgBox("Es ist ein" & _
        "Bußgeld in Höhe von 15€ zu erwarten", MsgBoxStyle.Information)
    ElseIf vy > 70  Then
        MsgBox("Es ist ein" & _
        "Bußgeld in Höhe von 680€, 4 Punkte und 3 Monate Fahrverbot zu" & _
        "erwarten" & _
        "", MsgBoxStyle.Information)
    ElseIf vy > 60 Then 
        MsgBox("Es ist" & _
        "ein Bußgeld in Höhe von 480€, 4 Punkte und 3 Monate Fahrverbot zu" & _
        "erwarten ", MsgBoxStyle.Information)
    ElseIf vy > 50  Then 
        MsgBox("Es ist" & _
        "ein Bußgeld in Höhe von 280€, 4 Punkte und 2 Monate Fahrverbot zu" & _
        "erwarten ", MsgBoxStyle.Information)
    ElseIf vy > 40  Then 
        MsgBox("Es ist" & _
        "ein Bußgeld in Höhe von 200€, 4 Punkte und 1 Monat Fahrverbot zu" & _
        "erwarten ", MsgBoxStyle.Information)
    ElseIf vy > 30  Then 
        MsgBox("Es ist" & _
        "ein Bußgeld in Höhe von 160€, 3 Punkte und 1 Monat Fahrverbot zu" & _
        "erwarten ", MsgBoxStyle.Information)
    ElseIf vy > 25 Then 
        MsgBox("Es ist" & _
        "ein Bußgeld in Höhe von 100€ und 3 Punkte zu erwarten", _
        MsgBoxStyle.Information)
    ElseIf vy > 20 Then 
        MsgBox("Es ist" & _
        "ein Bußgeld in Höhe von 80€ und 1 Punkt zu erwarten", _
        MsgBoxStyle.Information)
    ElseIf vy > 15  Then 
        MsgBox("Es ist" & _
        "ein Bußgeld in Höhe von 35€ zu erwarten", MsgBoxStyle.Information)
    ElseIf vy > 10 Then 
        MsgBox("Es ist" & _
        "ein Bußgeld in Höhe von 25€ zu erwarten", MsgBoxStyle.Information)
    End If
End If