用VB编程,求m,n的最大公约数.

用VB编程,求m,n的最大公约数.
要求：（1）m除以n的余数r.（2）若r=0,则n为要求的最大公约数,算法结束,否则执行步骤（3）.（3）n——>m,r——>n,再转到步骤（1）执行.
我写的代码是这样的,请问有什么错误呢?
Dim n,m,r As Integer
m = Val(TextBox1.Text)
n = Val(TextBox2.Text)
m Mod n = r
Do While r 0
m = n
n = r
m Mod n = r
Loop
TextBox3.Text = n