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

Формулировка задачи:

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

Решение задачи: «Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей»

textual
                            Листинг программы 
                        

                            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
                        