Imports System
Public Class MainClass
Shared Sub Main()
Console.WriteLine("The GCD of 36 and 99 is " & GCD(36, 99))
End Sub
Shared Function GCD(ByVal p As Long, ByVal q As Long) As Long
If Q Mod P = 0 Then
Return P
Else
Return GCD(Q, P Mod Q)
End If
End Function
End Class