Aqui está algum código baseado no algoritmo comum:
Public Function xMod(baseV As Long, pwr As Long, modV As Long) As Long
Dim i As Long
xMod = 1
For i = 1 To pwr
xMod = xMod * baseV
xMod = xMod - Int(xMod / modV) * modV
Next i
End Function
Mas, infelizmente, não tenho ideia se está funcionando! .................. é isso que você espera ?? :
(concorda com o Widget da Wolfram)