Private Sub CommandButton1_Click()
'ВВод начальных значений
V0 = Val(TextBox1.Text)
A = Val(TextBox2.Text)
S = Val(TextBox3.Text)
H = Val(TextBox4.Text)
'Попадание в стенку
L = S * Math.Tan(A * Pi / 180) - (G * S ^ 2) / (2 * V0 ^ 2 * Math.Cos(A * Pi / 180) ^ 2)
TextBox5.Text = L
Select Case L
Case Is < 0
TextBox6.Text = "Недолет"
Case Is > H
TextBox6.Text = "Перелет"
Case Is < H
TextBox6.Text = "Попадание"
End Select


a1 = (A * 3.14) / 180
T = 2 * V0 * Sin(a1) / G
dt = T / 600: t1 = 0

For i = 0 To 599
t1 = t1 + dt
X = 0 + V0 * Cos(a1) * t1
Y = 0 + V0 * Sin(a1) * t1 - G * t1 * t1 / 2
TextBox9.Text = Y
TextBox10.Text = X
TextBox11.Text = t1


DoEvents
Next i
End Sub

Макрос Экселя:
Private Sub CommandButton1_Click()

v0 = Cells(3, 6)
A = Cells(4, 6)
X0 = Cells(5, 6)
y0 = Cells(6, 6)
g = Cells(7, 6)
a1 = (A * 3.14) / 180
t = 2 * v0 * Sin(a1) / g
dt = t / 600: t1 = 0

For i = 0 To 599
t1 = t1 + dt
x = X0 + v0 * Cos(a1) * t1
y = y0 + v0 * Sin(a1) * t1 - g * t1 * t1 / 2
vy = v0 * Sin(a1) - g * t1
Vx = v0 * Cos(a1)
Cells(3, 14) = vy
Cells(4, 14) = Vx
Cells(5, 14) = y
Cells(6, 14) = x
Cells(7, 14) = t1
DoEvents
Next i
End Sub