s = 19107016 T = s Mod 100 v0 = T g = 10 Pi = 4 * Atn(1) A = T * Pi / 180 x0 = 0 y0 = 0 Vx = v0 * Cos(A) Vy = v0 * Sin(A) - g * T MsgBox Vx MsgBox Vy