Найти количество чисел аi (i = 1, 2, ..., n), являющихся степенями пятерки - VB

Option Explicit
 
Private Sub Main()
    Dim N As Integer, I As Integer
    Dim A() As Integer
    Randomize Timer
    N = 1000
    ReDim A(N)
    For I = 0 To 1000
        A(I) = Int(Rnd() * 1000)
    Next I
    Debug.Print "Чисела являющихся степенями пятерки:"
    N = 0
    For I = 0 To 1000
        If F(A(I)) Then
            Debug.Print A(I)
            N = N + 1
        End If
    Next I
    Debug.Print "Количество: "; N
End Sub
 
Private Function F(ByVal A As Single) As Boolean
    Do While A > 5
        A = A / 5
    Loop
    F = A = 5
End Function