C паскаля на бейсик - VB

Формулировка задачи:

вот код по задаче, где нужно рассчитать расстояние до горизонта если известен радиус и высота смотрящего

program esep;
const R=63500; {описывааем перменную р как радиус земли в км}
var D,h:real;{описываем переменные для вывода расcтояния до горризонта и высоту смотрящего}
begin{процесс описания переменных закончен, начинаем программу}
Write('Введите высоту (высота в километрах, можете вводить точное число с запятой) '){выводим сообщение с требованием ввести высоту смотрящего}
readln(h);{считываем данные о высоте}
D:=R*arctg((SQRT(H(2R+H)))\R){рассчитываем по формуле}
writeln('по точной формуле расстояние D=',D:10:3);{выводим расстояние}
readln;{делаем задержку чтобы пользователь успел посмотреть расстояние}
end. {заканчиваем программу}

нужно переписать его на бейсик для девушки, желательно с файлами проекта заранее спасибо =) просто щас у нее, а проект нужно сдать завтра^^ качать долго(

Решение задачи: «C паскаля на бейсик»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
Const R = 63500
Dim D, h As Single
h = InputBox("Введите высоту (высота в километрах, можете вводить точное число с запятой)")
D = R * Atn((Sqr(h * (2 * R + h))) / R)
MsgBox ("по точной формуле расстояние D=" & D)
End Sub
                        