Beste oplossers,

In bijlage heb ik een voorbeeldje van euclades algoritme.
Het probleem is het werd in java geschreven en heb deels volgens mijn beperkte kennis over java omgezet naar vba. De meeste operatoren kon ik aan uit maar niet van allemaal.
Aan een paar regels zoek ik hulp om de code functie in VBA te laten testen(aanroepen) in het venster direct - editor. ALT + F11 om in de editor te geraken van acces

Option Compare Database
Option Explicit
Public Function euclide(ByVal a As Long, ByVal b As Long) As String
Dim n, aux, alpha, beta As Long
  n = 0
  aux = b

  If (a < b) Then
    long[] euclide = { 0, a };
    return euclide;
  End If

  Do While (aux <= a)
    aux = (aux << 1);
    n++;
  Loop

  alpha = (1 << (n - 1));
  beta = (1 << n);

   Do while (n-- > 0)
    aux = (alpha + beta) >> 1;
    If ((aux * b) <= a) Then
      alpha = aux;
    Else
      beta = aux
      End If
    Loop

  euclide = alpha & " - " & a - (b * alpha)
 
End Function



In bijlage een screenshot java code en de database waar ik deels de javacode heb omgezet naar VBA

Vriendelijke groeten

Diezel