Program dwie liczby względnie pierwsze

Dostałem do zrobienia zadanie :
Sprawdz czy 2 liczby są względnie pierwsze. Program trzeba napisać w VBA
Czy mógłbym liczyć na pomoc za 0,5l wódki ?

        Function sprawdz(n As Integer, k As Integer) As Boolean
        Dim c As Integer
            While k<>0
                c = n mod k
                n = k
                k = c
            End While
            If n = 1
                return true
            End If    
            return false               
        End Function

Dziękuje, w domu sprawdzę jak to działa, a Ty podeslij numer konta w wiadomości to sie odwdzięczę :)

Można też przez WorksheetFunction.GCD(a,b)