Private Sub Command1_Click()

CommonDialog1.DialogTitle = "Отваряне на doc документи" 'Надпис на диалоговата форма

CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files(*.txt)|*.txt|Doc Files(*.doc)|*.doc" ' филтър за типове файлове

CommonDialog1.ShowOpen ' Тук посочваме точно метода ShowOpen, Защото има и други методи

If Len(CommonDialog1.FileName) = 0 Then Exit Sub ' Ако дължината на пътя е 0 символа излизаме от процедурата директно

sfile = CommonDialog1.FileName ' Записваме в стринговата променлива пътя, за да го използваме, където ни е необходим

Set docApp = CreateObject("word.Application") ' Създаваме обект Word

docApp.Documents.Open FileName:=sfile ' Отваряме с него файла с пълен път до него sfile

docApp.Visible = True ' Правим видим обекта Word

End Sub