Diga, muito sucintamente e de forma clara e objectiva, o que faz e para que serve a seguinte função:

Public Function xpto (op1, op2 As Integer) As Integer

' Comentário: op1 e op2 são dois valores não negativos

   Dim n As Integer

   If op1 = 0 Or op2 = 0 Then

      n = 0

   Else

      n = 1

      Do Until op2 = 0

         n = op1 * n

         op2 = op2 - 1

      Loop

   End If

   xpto = n

End Function