怎么编写vb程序，求两个数的最大公约数

下面编写的VB程序，是利用Sub子程序递归调用方式计算两个数M、N的最大公约数，其中M>N，且N≠0。