Посчитать, когда будет следующий парад планет

DefBool F
 
Sub parad()
  Const n = 5, d = 1
  Dim a#(1 To n), b#(1 To n), c#(1 To n - 1, 2 To n, 1 To 2)
  Dim dic As Object, i&, j&, k&, ii&, t1#, t2#, tm1#, tm2#, tt#, ti1#, ti2#, tii1#, tii2#
  Dim nn&, f, ff, ffj, ffii, s$
  
  Dim x: x = VBA.Array(0.6, 1, 1.7, 8, 23)
  For i = 1 To n: a(i) = x(i - 1): b(i) = 360 / a(i): Next
  Set dic = CreateObject("scripting.dictionary")
  
  For i = 1 To n - 1
    For j = i + 1 To n
      c(i, j, 1) = 0: c(i, j, 2) = 0: t2 = d / (b(i) - b(j))
      dic.Item(i & "|" & j & "|f|0") = 0#: dic.Item(i & "|" & j & "|l|0") = t2
  Next j, i
  
  jTest = jTest + 1
  f = False: k = 0: nn = 0: s = ""
  Do Until f Or k >= 100000
    dic.Remove "1|2|f|" & k
    dic.Remove "1|2|l|" & k
    k = k + 1
    tm1 = (360 * k - d) / (b(1) - b(2)): tm2 = (360 * k + d) / (b(1) - b(2))
    c(1, 2, 1) = k: c(1, 2, 2) = k: dic("1|2|f|" & k) = tm1: dic("1|2|l|" & k) = tm2
    
    For i = 1 To n - 1
      For j = i + 1 To n
        If i > 1 Or j > 2 Then
          tt = dic(i & "|" & j & "|l|" & c(i, j, 2))
          Do While tt < tm2
            c(i, j, 2) = c(i, j, 2) + 1
            dic(i & "|" & j & "|f|" & c(i, j, 2)) = (360 * c(i, j, 2) - d) / (b(i) - b(j))
            tt = (360 * c(i, j, 2) + d) / (b(i) - b(j))
            dic(i & "|" & j & "|l|" & c(i, j, 2)) = tt
          Loop
          tt = dic(i & "|" & j & "|l|" & c(i, j, 1))
          Do While tt < tm1
            dic.Remove i & "|" & j & "|f|" & c(i, j, 1)
            dic.Remove i & "|" & j & "|l|" & c(i, j, 1)
            c(i, j, 1) = c(i, j, 1) + 1
            tt = dic(i & "|" & j & "|l|" & c(i, j, 1))
          Loop
          If c(i, j, 2) - c(i, j, 1) > 1 Then nn = nn + 1
        End If
    Next j, i
    
    i = 0: ff = True: ti1 = tm1: ti2 = tm2
    Do While ff And i < n - 1
      i = i + 1: j = i: ffj = True
      Do While ffj And j < n
        j = j + 1: ffii = True
        If Not (i = 1 And j = 2) Then
          ii = c(i, j, 1) - 1: ffii = False
          Do Until ffii Or ii >= c(i, j, 2)
            ii = ii + 1
            tii1 = max(dic(i & "|" & j & "|f|" & ii), ti1)
            tii2 = min(dic(i & "|" & j & "|l|" & ii), ti2)
            If tii1 < tii2 Then ffii = True: ti1 = tii1: ti2 = tii2
          Loop
        End If
        If Not ffii Then ffj = False
      Loop
      If Not ffj Then ff = False
    Loop
    If ff Then
      For i = 1 To n:  s = s & vbCr & "(" & i & "):" & Evaluate("mod(" & b(i) * ti1 & ",360)"): Next
      MsgBox ti1 & vbCr & s
      f = True
    End If
  Loop
End Sub
 
Function max(n1#, n2#)
  max = IIf(n1 > n2, n1, n2)
End Function
 
Function min(n1#, n2#)
  min = IIf(n1 < n2, n1, n2)
End Function

Private Sub CommandButton1_Click()
Dim n, i, S
Dim T(100)
n = CInt(TextBox1.Text)
For i = 1 To n
T(i) = i
Next i
S = NOK(T(1), T(2))
If n >= 3 Then
For i = 3 To n
S = NOK(S, T(i))
Next i
End If
MsgBox (S)
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