Private Function Straftext_Innerhalb(ByVal Überschreitung As Integer) As String
 
   Dim dt As New DataTable
   With dt.Columns
      .Add("Limit", GetType(Integer))
      .Add("Bussgeld", GetType(Integer))
      .Add("Punkte", GetType(Integer))
      .Add("Fahrverbot", GetType(Integer))
   End With
 
   With dt.Rows
       .Add(1, 15, 0, 0)
       .Add(11, 25, 0, 0)
       .Add(16, 35, 0, 0)
       .Add(21, 80, 1, 0)
       .Add(26, 100, 3, 0)
       .Add(31, 160, 3, 1)
       .Add(41, 200, 4, 1)
       .Add(51, 280, 4, 2)
       .Add(61, 480, 4, 3)
       .Add(71, 680, 4, 3)
   End With
 
   Dim t As String = "Es kommt nicht zu einer Strafe"
 
   With dt
     For i As Integer = .Rows.Count - 1 To 0 Step -1
       If Überschreitung >= CInt(.Rows(i)("Limit")) Then
          t = "Es ist mit einem Bußgeld in Höhe von " & CStr(.Rows(i)( _
            "Bußgeld")) & " € zu rechnen"
          Dim punkte As Integer = CInt(.Rows(i)("Punkte"))
          If punkte > 0 Then
             t &= vbCrLf & "und es werden " & CStr(punkte) & _
             " Punkte in der Verkehrsdatei eingetragen"
          End If
          Dim monate As Integer = CInt(.Rows(i)("Fahrverbot"))
          If monate > 0 Then
            t &= vbCrLf & "Zusätzlich werden wohl noch " & CStr(monate) & _
            " Monate Fahrverbot verhängt"
          End If
          Exit For
       End If
     Next i
   End With
 
   Return t
End Function