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

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