Private Function test() As Long
 
  '48 = 27 ^ 13 Mod 77
  '27 = 48 ^ 37 Mod 77
 
  Dim a As Long
  Dim b As Long
  Dim div As Long
  Dim tmp As Long
  Dim rest As Long
  Dim i As Long
 
On Error GoTo err_handler
 
 
  a = 48
  b = 37
  div = 77
 
 
  rest = a
  For i = 1 To (b - 1)
 
    tmp = rest * a
    rest = tmp Mod div
 
  Next i
 
  Debug.Print rest
 
  test = rest
 
  GoTo endproc
err_handler:
  test = -1
  Debug.Print Err.Description
  Debug.Assert False
 
endproc:
 
End Function

Gruß
Dirk

--
?Get it right the first time