求大神帮忙看看这个程序有没有不对的地方。。。

自己做了一个更相减损数算最大公约数的程序，求看看有没有问题。。。
代码如下：
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
While a <> b
If a Mod 2 = 0 And b Mod 2 = 0 Then
a = a / 2
b = b / 2
t = t + 1
Else
If b > a Then
i = a
a = b
b = i
End If
a = a - b
End If
Wend
c = a * 2 ^ t
Text3.Text = c
End Sub
谢谢~