#include <iostream>
#include <ctime>
using namespace std;
 
int main()
{
    long startime = clock();
    long out = modpow(5200, 31, 100000000);
    cout <<  (float) (clock() - startime) / CLOCKS_PER_SEC;
}
 
long modpow(long modulus, long base, long exponent)
{
    long Output = 1;
    for(int i = 1; i <= exponent; i++)
    {
        Output = (Output * base)%modulus;
    }
    return Output;
}

Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Private Sub Form_Load()
Dim starttime As Long
Dim res As Long
starttime = GetTickCount
res = modpow(5200, 31, 100000000)
MsgBox (GetTickCount() - starttime)
End
End Sub
 
Function modpow(ByVal modulus As Long, ByVal base As Long, ByVal exponent As Long)
Dim i As Long
Dim output As Long
output = 1
For i = 1 To exponent
DoEvents
output = (output * base) Mod modulus
Next i
modpow = output
End Function