Whats wrong with this VBA?

Sub problem2() Dim x0 As Integer, v0 As Integer, theta As Integer, g As Integer, t As Double, y0 As Integer Dim x As Double, y As Double Sheets("Sheet2").Select x0 = Range("F2").Value y0 = Range("F3").Value v0 = Range("F4").Value theta = Range("F5").Value g = -9.81 x = x0 + v0 * Cos(theta * (3.14159 / 180)) * t

y = y0 + v0 * Sin(theta * (3.14159 / 180)) * t + 0.5 * g * t ^ 2 Cells(2, 1) = 0 Cells(2, 2) = x Cells(2, 3) = y

Do While (y > 0) y = y0 + v0 * Sin(theta * (3.14159 / 180)) * t + (0.5 * g * t ^ 2) t = t + 0.1 ThisWorkbook.Worksheets("Sheet2").Range("A") = t ThisWorkbook.Worksheets("Sheet2").Range("C") = y

If y > 0 Then x = x0 + v0 * Cos(theta * (3.14159 / 180)) * t ThisWorkbook.Worksheets("Sheet2").Range("B") = x

End If

Loop

End Sub