Пожалуйста, помогите написать программку VBA к такой задачке?

Question

Даны два числа А и В. Если А-В>0, то значения А и В возвести в квадрат и вывести результаты (Разветвленный алгоритм) 
Заранее Спасибо!

Сергей · Accepted Answer

Создай два текстбокса (куда надо всунуть А и Б) , два Лейбла (там будет ответ) и Кнопку. Вбей в Кнопку текст снизу. З. Ы. : я мог и ошибиться - давно в VBA не практиковался.. . 
A=Text1.Text 
B=Text2.Text 
If A-B>o then 
C=A*A 
D=B*B 
Label1.Caption=C 
Label2.Caption=D 
Else 
Label1.Caption=A 
Label2.Caption=B 
End If