Чтение слова из Doc-файла - VB

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

Здравствуйте! нужна ваша помощь! у меня VB 6.0. Никак не могу разобраться...есть dirlistbox1, filelistbox1 textbox1 label1 и label2. в dirlistbox1 выбираю директорию, в filelistbox1 отображаются(по фильтру) только *.doc файлы, нужно, чтобы при выборе файла в filelistbox1 считывалась третья строка этого doc-файла проверялось последнее слово этой строки на наличие слова "приказ" и если "да" то в label1 записывалось это слово а если "нет" такого, то в label 2 записывалось то что есть...ПОМОГИТЕ ПЛИЗ!!!!

Решение задачи: «Чтение слова из Doc-файла»

textual
                            Листинг программы 
                        
                            Set MyWord = CreateObject("Word.Application")