В ячейках А2, С3 и В3 находятся целые числа. Составить подпрограмму для нахождения произведения этих чисел

Public Sub rt()
If Range("A2") * Range("B3") * Range("C3") >= 122 Then MsgBox "Нет" Else MsgBox "МЕНЬШЕ"
End Sub

Sub Test()
    q#=Range("A2").value * Range("C3").value * Range("B3").value 
    if q# < 122 Then
       MsgBox "Меньше"
    else
       MsgBox "Нет"
    end if
end Sub

MsgBox IIf([A2] * [B3] * [C3] >= 122, "Нет", "Меньше")

Option Compare Database
Option Explicit
Sub mm220615()
Dim a, b, c
a = 0
b = 32
If a = 0 Then c = 3 Else c = b / a
'' просчитывается только нужная ветвь
Debug.Print "вариант if", c
 
c = IIf(a = 0, 3, b / a)
'' просчитываются обе  ветви, а только потом идет выбор
Debug.Print "вариант iif", c
End Sub

Option Compare Database
Option Explicit
Sub mm220615()
Dim a As Integer, b As Integer, c As Integer
a = 50
b = 1000
If a < 10 Then c = a * b Else c = b / a
'' просчитывается только нужная ветвь
Debug.Print "вариант if", c
 
c = IIf(a < 50, a * b, b / a)
'' просчитываются обе  ветви, а только потом идет выбор, поэтому дает ошибку
Debug.Print "вариант iif", c
End Sub

MsgBox Format(x > 122, ";""Yes"";""No""")
 
? Format(5 > 122, ";""Yes"";""No""")
No
? Format(123 > 122, ";""Yes"";""No""")
Yes
? Format(122 > 122, ";""Yes"";""No""")
No