Поиск и удаление файлов - VB

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

Добрый день! Помогите пожалуйста составить программу,а то я новичок в VB6. Суть программй в том что есть папка "документы" лежащая на пути D:\мои документы\документы. В этой папке нужно найти все файлы с расширением "doc" и размером ровно 4000 байт, найденные файлы необходимо удалить не помещая в корзину и по окончанию вывести количество найденных и удалённых файлов. надеюсь на вашу помощь.

Решение задачи: «Поиск и удаление файлов»

textual
                            Листинг программы 
                        
                            Private Declare Function GetTickCount Lib "kernel32.dll" () As Long