Find GCD using recursion

Module GCDRecFunc
    Sub Main()
        Dim m, n, g As Integer
        Console.Write("Enter 1st Number : ")
        m = CInt(Console.ReadLine())
        Console.Write("Enter 2nd Number : ")
        n = CInt(Console.ReadLine())
        g = gcd(m, n)
        Console.WriteLine("GCD = " + g.ToString())
        Console.ReadLine()
    End Sub
    Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer
        If x Mod y = 0 Then
            Return y
        Else
            Return gcd(y, x Mod y)
        End If
    End Function
End Module