RosettaCodeData/Task/Function-definition/VBA/function-definition-2.vba

Sub Main()
Dim Result As Long
    Result = Multiply(564231, 897)
End Sub