Vba If Then несложная задача

[HelperAwM]

Здраствуйте уважаемые программисты
Нужна помощь в создание легкой для вас задачи =)
Задача:
Если переменная "A" больше 0, то должна найтись сумма A+B , Если переменная "A" меньше 0 то должно найтись произведение A*B.
Поскольку я мало изучал vba и давно, я почти нечего непомню и прощу помощи у вас =)

[IVolution]

if A > 0 then
A = A + B 'или любая другая переменная, куда запишется сумма
else
A = A * B
end if

[HelperAwM]

А как это решить через " MsgBox " ? чтобы ответ выводил и можно чтобы задавать числа A и B=)

[IVolution]

Если делаешь на форме, то кинь туда 2 компонента TextBox. В первый будет вводиться А, а во второй - В.
Итак, код:
Dim a, b As Integer
a = TextBox1.Text
b = TextBox2.Text
If a > 0 Then
MsgBox ("Сумма равна: " & a + b)
End If
If a < 0 Then
MsgBox ("Произведение равно: " & a * b)
End If

[viter.alex]

Или вот так с запросом каждой переменной и проверкой, что введено число

Sub IfThenExample()
  Dim a As Integer, b As Integer
  Dim retval As String
  
  'Получаем a
  Do While Not IsNumeric(retval)
    retval = InputBox("Введите число a", "Ввод первого числа", retval)
    If Len(retval) = 0 Then Exit Sub
  Loop
  a = CInt(retval)
  retval = ""
  'Получаем b
  Do While Not IsNumeric(retval)
    retval = InputBox("Введите число b", "Ввод второго числа", retval)
    If Len(retval) = 0 Then Exit Sub
  Loop
  b = CInt(retval)
  'Выводим результат
  If a > 0 Then
    MsgBox "Сумма введённых чисел равна " & a + b & ".", vbInformation
  ElseIf a < 0 Then
    MsgBox "Произведение введённых чисел равно " & a * b & ".", vbInformation
  End If
End Sub

[HelperAwM]

Спасибо а что означает это

Do While Not IsNumeric(retval)
If Len(retval) = 0 Then Exit Sub
Loop
b = CInt(retval)

[viter.alex]

Эта часть кода будет выводить запрос до тех пор, пока не введут число или не нажмут "Отмена". После этого введённое строковое значение преобразовывается в число.