Не могу понять ошибку - VB

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

привет всем помогите понять ошибку и как правильно написать код.
есть кнопка Command4 и Combo3 в ней есть список из нескольких названий документов.
нужно что бы при нажатии на Command4 открывался именно тот документ который выбран в Combo3

Private Sub Command4_Click()
If Combo3.Text = "ч.8_ст.26_Общий" Then
Dim word As Object
Set word = CreateObject("Word.Application")
word.Visible = True
word.Documents.Open ("C:\Users\пользователь\Desktop\База\ч.8_ст.26_Общий.docx")
End If
If Combo3.Text = "ч.8_ст.26_Общий_с_разъяснениями" Then
Dim word As Object
Set word = CreateObject("Word.Application")
word.Visible = True
word.Documents.Open ("C:\Users\пользователь\Desktop\База\ч.8_ст.26_Общий_с_разъяснениями.docx")
End If
End Sub

помогите пожалуйста....

Решение задачи: «Не могу понять ошибку»

textual
                            Листинг программы 
                        

                            Dim pat
        Dim word As Object
        pat = "C:\Users\пользователь\Desktop\База\" & Combo3.Text & ".doc"
        Set word = CreateObject("Word.Application")
        word.Visible = True
        word.Documents.Open (pat)

                        