Automatische Landung Visual Basic Access

Function Bewegungschritt_berechnen()

Rem Funktion zur Bewegungsberechnung
Dim v As Double, a As Double, h As Double
Dim deltat As Double
Dim Fschub As Double, Fgewicht As Double, Fgesamt As Double
Dim Schubaktuell As Double, Treibstoffaktuell As Double

Const gmond = 2: Rem als m/s²
Const mrak = 5000
deltat = 5

Schubaktuell = Val(Me!Schub)
Treibstoffaktuell = Val(Me!Treibstoff)
v = Val(Me!Geschwindigkeit)
s = Val(Me!Hoehe)

Rem Alle physikalischen Berechnungen
If Treibstoffaktuell < Schubaktuell * deltat Then
MsgBox ("Ihr Treibstoff ist gleich alle!")
Schubaktuell = Treibstoffaktuell / deltat
Me!Schub = 0
End If

Fschub = Schubaktuell * 2000
Fgewicht = gmond * (mrak + Treibstoffaktuell)
Fgesamt = Fschub - Fgewicht
a = Fgesamt / (mrak + Treibstoffaktuell)
v = v + a * deltat
s = s + v * deltat
Treibstoffaktuell = Treibstoffaktuell - Schubaktuell * deltat

Rem Ausgabe zurück in das Formular
Me!Treibstoff = Treibstoffaktuell
Me!Geschwindigkeit = v
Me!Hoehe = s

Rem Auswertung der Landung
If s < 0 Then
If v > -4 Then MsgBox ("Eine gute Landung!")
If v > -15 And v < -4 Then MsgBox ("Das tat weh!")
If v < -15 Then MsgBox ("RIP")

End If

End Sub

End Function

Private Sub Bewegung_berechnen_Click()
Bewegungschritt_berechnen

End Sub

Private Sub Reset_Click()
Me!Treibstoff = 2000
Me!Hoehe = 10000
Me!Geschwindigkeit = 0
Me!Schub = 0
Me!Timer = 10000

Das ist mein Code . Ich arbeite mit Access (Visual Basic)
Ich muss es jetzt hinbekommen , das meine Rakete automatisch landet. Kann mir da jemand helfen? Was muss ich tun? Vielen Dank.