Поиск по трем параметрам и вывод значений ячеек найденной строки в соответствующие TextBox'ы на форме.

[VETZzzz]

Здравствуйте, прошу помочь разобраться.
Есть форма для поиска с тремя полями: Фамилия, Имя, Отчество.
необходимо по ним найти строку в таблице Excel, и вывести значения всех ячеек найденной строки в соответствующие им textbox'ы на форме для дальнейшего использования.

Private Sub CommandButton4_Click()
Dim i As Integer
Sheets("Мед.карта").Activate
For i = 1 To Application.WorksheetFunction.CountA(ActiveSheet.Range("F:H"))
If Cells(i, 6) = UserForm4.TextBox33.Text And Cells(i, 7) = UserForm4.TextBox34.Text And Cells(i, 8) = UserForm4.TextBox35.Text Then
UserForm4.TextBox1.Text = Cells(i, 7) 
UserForm4.TextBox2.Text = Cells(i, 8)
UserForm4.TextBox3.Text = Cells(i, 9)
Exit For 
Else
MsgBox "Не найдено!"
Exit For
End If
Next i
End Sub

заране спасибо!

[IgorGO]

Private Sub CommandButton4_Click()
  Dim i As Integer
  Sheets("Мед.карта").Activate
  For i = 1 To Application.WorksheetFunction.CountA(ActiveSheet.Range("F:F"))
    If Cells(i, 6) = UserForm4.TextBox33.Text And Cells(i, 7) = UserForm4.TextBox34.Text And Cells(i, 8) = UserForm4.TextBox35.Text Then
      UserForm4.TextBox1.Text = Cells(i, 7) 
      UserForm4.TextBox2.Text = Cells(i, 8)
      UserForm4.TextBox3.Text = Cells(i, 9)
      Exit For 
    End If
  Next i 
  if i > Application.WorksheetFunction.CountA(ActiveSheet.Range("F:F")) then MsgBox "Не найдено!"
End Sub

[VETZzzz]

RegFor Alpha 1.rar уф, собственно, ничего не изменилось. он все так же не находит ничего(