Sub Macro1()
'
' Macro1 Macro
' Macro recorded 12/2/2006 by Sami Cirpili
'
 
'
' Start with initial conditions
Dim G, r, F, a, vf, d As Double
Dim m1, m2 As Double
r = 0: F = 0: a = 0: vf = 0: d = 0
G = 6.67 * 10 ^ (-11)
m1 = 5.9742E+24
m2 = 1.99E+30
r = 149476000
For dt = 0 To 100 Step 0.05
F = (G * m1 * m2) / (r ^ 2)
a = F / m1
vf = vf + a * dt
d = vf * dt + 0.5 * a * (dt ^ 2)
r = r - d
d = 0
If r < 0 Then Exit For
 
Next dt
 
MsgBox ("The value is " & r & " the time elapsed is " & dt)
 
End Sub