Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
        Dim v As Integer
        v = InputBox("Geschwindigkeit [m/s]", "Eingabe")
        Dim r As Integer
        r = v
        Dim b As Integer
        b = 0.5 * v * v / 7
        Dim s As Integer
        s = "Reaktionsweg : " & r & " m" & vbCr
        s = s + "Bremsweg : " & b & " m" & vbCr
        s = s + "Anhalteweg: " & r + b & " m"
        Dim c As Integer
        c = "Ergebnis"
 
        MsgBox(s, vbOKOnly, c)
    End Sub
End Class