Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей - VBA

Sub main()
Dim n As Integer, s As Integer, i As Integer, j As Integer, a(4), u As Integer
For i = 1 To 200
  u = 0
  n = i
  j = 2
  Do While j <= n
    While n Mod j = 0
      a(u) = j
      n = n \ j
      If u = 4 Then
        If n = 1 Then
          Debug.Print i & "=" & Join(a, "*")
          s = s + i
        End If
        Exit Do
      End If
      u = u + 1
    Wend
    j = j + 1
  Loop
Next
Debug.Print "S=" & s
End Sub