Dim v As Integer
        v = InputBox("Geschwindigkeit [m/s]", "Eingabe")
        If Not IsNumeric(v) Then Exit Sub
        Dim r As Integer
        r = v
        Dim b As Integer
        b = 0.5 * v * v / 7
        Dim s As String
        s = "Reaktionsweg : " & r.ToString & " m" & vbCr
        s = s + "Bremsweg : " & b.ToString & " m" & vbCr
        s = s + "Anhalteweg: " & (r + b).ToString & " m"
        Dim c As String
        c = "Ergebnis"
        MsgBox(s, vbOKOnly, c)