Mit folgender Funktion berechnen Sie den grössten gemeinsamen Teiler zweier Long-Werte a und b:

Function GTT(ByVal a As Long, ByVal b As Long) As Long
Dim h As Long

    If a Then
        If b Then
            Do
                h = a Mod b
                a = b
                b = h
            Loop While b
        End If
        GTT = Abs(a)
    Else
        GTT = Abs(b)
    End If
    
End Function