Определите время свободного падения физического тела с высоты h, написать программу в среде VBS

Огромное спасибо, не посмотрите еще ряд задач с VBS

Может быть....

h=InputBox("Введите высоту в метрах")MsgBox Cstr(Round(Sqr(2*CDbl(h)/9.81),2)),0,"Время падения, с"