Найти творенье цифр естественного числа N.Visual basic

Function GetNumberProduct(n)
    if not IsNumeric(n) then
        GetNumberProduct = "Not a valid number"
        Exit Function
    end If

    n = Abs(n)
    Product = 1

    Do While n gt; 0
        Product = Product * n Mod 10
        n = n \ 10
    Loop

    GetNumberProduct = Product
End Function

n = 1203
MsgBox("Product of digits in " amp; n amp; " = " amp; GetNumberProduct(n))

---
проверялось на vbscript, yно думаю работать и у тебя будет