Задача на Visual Basic 6.0, помогите люди!!! - VB

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

Даны натуральные числа n,a1....,an. Определить количество членов ak последовательности a1,....,an:
В)Являющихся квадратами четных чисел.
Надо решить на Visual Basic 6.0 методом сортировки на месте по возрастанию.
Пожалуйста подскажите напишите!!!

Решение задачи: «Задача на Visual Basic 6.0, помогите люди!!!»

textual
                            Листинг программы 
                        
                            Dim i, j, k, a(1000), b(1000) As Integer