Определить произведение цифр натурального числа 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 > 0         Product = Product * n Mod 10         n = n \ 10     Loop     GetNumberProduct = Product End Function n = 1203 MsgBox("Product of digits in " & n & " = " & GetNumberProduct(n)) --- проверялось на vbscript, yно думаю работать и у тебя будет