Вывести все числа от 1 до 1000, которые: - являются квадратами четных чисел. - кратны 3 и не кратны 5 - VB

Private Sub Form_Load()
Dim i, b As Integer
i=2
do while i*i<1000
        Print i*i
        i=i+2
loop 
Print
For i = 3 To 999 step 3
    If i Mod 5 <> 0 Then Print i
Next