vba Ошибка при использовании поиска по объединенной строковой переменной

Question

Data1 content введите описание изображения здесь Хотел бы попросить помощи по следующему коду в vba.По сути, я объединил заголовок метки (Date) со значением текстового поля (EmpNo) из пользовательской формы, поэтому мне не нужно искать каждый элемент в 2 отдельных столбцах (EmpNo в столбце B и дату в столбце C) и сохранил этов строковой переменной Data1.Затем я хочу найти, где Data1 находится в столбце A и получить 7-й столбец справа.Я не уверен, где я ошибаюсь, но он продолжает посылать переменную объекта ошибки или не установлена ​​переменная блока.

В строке Set Search=Range ... отображается ошибка.

Private Sub Find_Click()

With Sheets("Sheet1")

    Dim Data1 As String
    Dim Search As Range
    Dim Cell As Range
    Dim Pass As Range
    D1.Caption = Range("R4").Text
    D2.Caption = Range("R5").Text
    D3.Caption = Range("R6").Text
    D4.Caption = Range("R7").Text
    D5.Caption = Range("R8").Text
    D6.Caption = Range("R9").Text
    D7.Caption = Range("R10").Text
        Data1 = EmpNo.Text & "-" & D3.Caption
        Set Cell = Range("K4: K1000").Find(EmpNo.Text).Offset(0, 3)
        Set Pass = Range("K4: K1000").Find(EmpNo.Text).Offset(0, 1)
        Set Search = Range("A4: A1000").Find(Data1).Offset(0, 7)
        EmpName.Caption = Cell.Text
    If Password.Text = Pass.Text Then MultiPage1.Visible = True
End With
End Sub

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