Zitat:

ich suche für ein von mir selbts erstelltes Programm Tester, die dieses ausführlich testen. Bitte sagt mir dann eure Meinung, sowie berichtet mir Bugs.

Sub Main()
v = InputBox("Geschwindigkeit [m/s]", "Eingabe")
r = v
b = 0.5 * v * v / 7
s = "Reaktionsweg : " & r & " m" & vbCr
s = s + "Bremsweg : " & b & " m" & vbCr
s = s + "Anhalteweg: " & r + b & " m"
c = "Ergebnis"
MsgBox s, vbOKOnly, c
End Sub