Найти наименьший общий знаменатель трех дробей

Option Explicit
Private Sub Command1_Click()
    Dim a As Long, b As Long, c As Long
    a = 3: b = 18: c = 6
    Print NOK(NOK(a, b), c)
    MsgBox "a = " & a & ", b = " & b & ", c = " & c & ", " & vbCrLf & _
           "НОК = " & NOK(NOK(a, b), c)
End Sub
Private Function NOK(ByVal a As Long, ByVal b As Long) As Long
    NOK = (a * b) / NOD(a, b)       'Вычисляем НОК
End Function
Function NOD(ByVal a As Long, ByVal b As Long) As Long
     While a <> b
           If a > b Then
              a = a - b
           Else
              b = b - a
           End If
     Wend
     NOD = a
End Function

Option Explicit
 
Sub main()
Dim m(), i As Long, Res As Long
m = Array(540, 720, 180, 1080, 2160, 90)
Res = m(0)
For i = 1 To UBound(m)
  Res = nok(Res, m(i))
Next i
End Sub
 
Function nok(ByVal a As Long, ByVal b As Long) As Long
    nok = (a * b) / nod(a, b)
End Function
 
Function nod(ByVal a As Long, ByVal b As Long) As Long
   While a > 0 And b > 0
     If a >= b Then a = a Mod b Else b = b Mod a
   Wend
   nod = a + b
End Function