用VB求多个数最小公倍数

建一个Command1。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Function MaxDeno(ByVal x As Long, ByVal y As Long) As Long
While x <> y
If x > y Then
x = x - y
Else
y = y - x
End If
Wend
MaxDeno = x
End Function
Function MinComMulti(ByVal x As Long, ByVal y As Long) As Long
MinComMulti = x * y / MaxDeno(x, y)
End Function

Private Sub Command1_Click()
Dim a, s As String, i As Integer, r As Long
s = InputBox("请输入待求数，用英文逗号分隔，例如2,3,5")
a = Split(s, ",")
r = a(0)
For i = 0 To UBound(a)
r = MinComMulti(r, a(i))
Next
MsgBox r
End Sub