Как вычислить линейное уравнение в VB6

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

Доброго времени суток, у меня небольшая беда, запутался в написании программы для вычисления линейного уравнения в VB6. Суть в том, что вне зависимости от ввода переменных все время получается -0,3333333333, не пойму,либо я где-то ошибся,либо в корне неправильно написал программу, дело в том,что я 22 дня пролежал в больнице и естественно много пропустил, теперь все нужно отработать, а знаний материала толком нет ( я студент 1 курса, только только начали изучать программирование). помогите разобраться.

Private Sub Form_Load()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
InputBox (A), "Введите переменную  А"
InputBox (B), "Введите переменную  B"
C = (A * B ^ 2 - B * (Sqr(A)) + Sin(A) ^ 2 + 3 * Cos(B) ^ 2 + 2) / (2 * Sin(A) ^ 2 + 2 * (Sqr(A * B)) - 4 * A ^ 3 + 2 * B - 15)
MsgBox "C=" & C, , "Результат"
Unload Form1
End Sub

Решение задачи: «Как вычислить линейное уравнение в VB6»

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

                            Private Sub Form_Load()
Dim A As Double
Dim B As Double
Dim C As Double
Dim D As Double
A = InputBox("Введите переменную  А", "Исходные данные", "0")
B = InputBox("Введите переменную  B", "Исходные данные", "0")
C = (A * B ^ 2 - B * (Sqr(A)) + Sin(A) ^ 2 + 3 * Cos(B) ^ 2 + 2) / (2 * Sin(A) ^ 2 + 2 * (Sqr(A * B)) - 4 * A ^ 3 + 2 * B - 15)
MsgBox "C=" & C, , "Результат"
Unload Form1
End Sub
                        