Составить линейную программу для вычисления значения функции при заданных параметрах - VB

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

добрый день формучане, вот условие задания составить линейную программу для вычисления значения функции при заданных параметрах.ввод осуществить в программе, вывод результата выполнить в диалоговом окне. наверняка вы подумаете что это просто и я мог бы сам разобраться, но тут такое дело, я закончил учебу в техникуме 10 лет назад, далее трудоустроился и нормально так работал, но тут работодатель отправил на учебу где меня и настигло программирование с коим я никогда не сталкивался и дается оно мне пока с трудом, поэтому надеюсь на то, что вы не оставите меня с этим заданием наедине заранее благодарю за помощь

Решение задачи: «Составить линейную программу для вычисления значения функции при заданных параметрах»

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

                            Sub Task()
Dim x as double, y as double, a as double, b as double, c as double
Dim w as double, u as double
 
     y=5.1
     a=6.27
     c=7.0E+5
     b=1.5 'Апострофф вклинил
 
     w=1-(a^2)/(c^2)
     u=1-(b^2)/(c^2)
 
     x=y*sqr(a^2+w*b^2)/(w*u)
 
     MsgBox "x=" & Cstr(x)
 
End sub
                        