求个 求两数最小公倍数 的代码

Option Explicit
Private Sub Command1_Click()
Dim m%, n%, s&
m = Val(InputBox("输入m"))
n = Val(InputBox("输入n"))
If m <= 0 Or n <= 0 Then MsgBox "Math Error!": Exit Sub
s = m * n
Print m & "," & n & "的最小公倍数为:";
Do While m <> n
If m > n Then
m = m - n
Else
n = n - m
End If
Loop
Print s / m
End Sub