Организация поиска из xl - VB

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

Доброго всем вечера! подскажите что не так с кодом? не ищет данные в ячейке из текстового поля.

Private Sub Command3_Click() 'поиск 
  Dim q As String
  q = Text1(0).Text
  If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub
  On Error Resume Next
  Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate
  If Err Then
    MsgBox "В списке (" & Text1(0) & ") строки нет!, Попробуйте изменить критерии поиска или его место!", 64, "СООБЩЕНИЕ"
  Else
    MsgBox "Искомые данные (" & Text1(0) & ") найдены!", vbInformation, "СООБЩЕНИЕ"
   End If
End Sub

Решение задачи: «Организация поиска из xl»

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

                            Private Sub Command1_Click()
Dim q As String, rx, r
  q = Text1.Text
  If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub
  Set rx = XL.Worksheets("Лист1").Columns("A:A").Find(What:=q)
  If XL Is Nothing Then
    MsgBox "В списке (" & Text1 & ") строки нет!, Попробуйте изменить критерии поиска или его место!", 64, "СООБЩЕНИЕ"
  Else
    If MsgBox("Искомые данные  (" & Text1 & ") найдены! продолжить?", vbYesNo, "СООБЩЕНИЕ!") = vbNo Then Exit Sub
        r = rx.row
        Text2.Text = XL.Worksheets("Лист1").cells(r, 2)
        Text3.Text = XL.Worksheets("Лист1").cells(r, 3)
    End If
End Sub
                        