Ecco un semplice esempio di calcolo della potenza, con esponenti sia positivi che negativi.
codice:
Public Function Potenza(base As Double, esp As Integer) As Double
   Select Case esp
      Case 0
         Potenza = 1
      Case Is > 0
         Potenza = Potenza(base, esp - 1) * base
      Case Is < 0
         Potenza = Potenza(base, esp + 1) / base
   End Select
End Function