наименьшее общее кратное четырёх заданных натуральных чисел

[Васильева Зинаида]

Найти наименьшее общее кратное четырёх заданных натуральных чисел.
У МНЯ ПОЧЕМУ ТО НОД НЕ ВЫЧИСЛЯЕТ СОВСЕМ(((

Private Sub Command1_Click()
Dim k1 As Integer
Dim k2 As Integer
Dim k3 As Integer
Dim k4 As Integer
Dim s As Integer
Dim k As Integer
k1 = Val(Text1.Text)
k2 = Val(Text2.Text)
k3 = Val(Text3.Text)
k4 = Val(Text4.Text)
s = NOK(NOK(k1, k2), NOK(k3, k4))
k = NOD(NOD(k1, k2), NOD(k3, k4))
Text5.Text = Str(k)
Text6.Text = Str(s)
End Sub
Private Function NOD(ByVal a As Integer, ByVal b As Integer)
While (a <> 0) And (b <> 0)
         If a >= b Then a = a Mod b Else b = b Mod a
NOD = a + b
Wend
End Function
  Function NOK(ByVal a As Integer, ByVal b As Integer) As Integer
    NOK = a * b / NOD(a, b)
  End Function
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub