Проблема с выводом нескольких строк в TextBox и с циклами - VB

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

Есть список дней рождений работников в Excel.
Есть код, который после ввода данных в текстбоксы(день и месяц рождения) должен искать совпадающие результаты и выводить в ещё один текст бокс. Но находит он только ПОСЛЕДНЕГО в списке сотрудника, а остальных с такими же данными( день и месяц рождения) пропускает(или перезаписывает - не знаю...). Подскажите пожалуйста, может что-то неправильное в коде...
Private Sub CommandButton3_Click()
Dim Prizv As String
Dim Imya As String
Dim Pobat As String
Dim Posada As String
Dim Den As Integer
Dim Misyac As String
Dim Rik As Integer
Dim i As Integer
Dim nol As String
nol = " "
For i = 1 To 500 Step 1
Prizv = Cells(i, 3)
Imya = Cells(i, 4)
Pobat = Cells(i, 5)
Posada = Cells(i, 6)
Den = Cells(i, 7)
Misyac = Cells(i, 8)
Rik = Cells(i, 9)
If Den = ComboBox1.Text And Misyac = ComboBox2.Text _
Then TextBox8.Text = Prizv & nol & Imya & nol & Pobat & _
nol & Posada & nol & Den & nol & Misyac & nol & Rik
Next i

Решение задачи: «Проблема с выводом нескольких строк в TextBox и с циклами»

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

                            <font color="blue">Dim</font> w <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Dim</font> d <font color="blue">As</font> <font color="blue">Object</font>
<font color="blue">Set</font> w = CreateObject(<font color="teal">"Word.Application"</font>)
<font color="blue">Set</font> d = w.Documents.Add
w.Selection.TypeText Text8.Text
w.Visible = True
                        