辗转相减法求最大公约数的vb代码

Private Sub Command1_Click()
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
If m < n Then t = m: m = n: n = t
r = m Mod n
Do While (r 0)
m = n
n = r
r = m Mod n
Loop
MsgBox ("最大公约数为" & n)
End Su