compile error[พี่ๆช่วยทีคะT_T] .. คือ ต้องการรับค่าจาก textbox ในไฟล์ excel

Private Sub button_submit_Click()
 ChDir "D:"
    Workbooks.Open Filename:= _
        "D:\Trainee\employeeList.xls"
    'MsgBox (Windows.Application.Workbooks.Count)
      
    If TextBox_empNo.Text = Trim(Windows.Application.Workbooks("employeeList").Worksheets("data").Range("A2")) Then
    
    Dim book1 As String
    book1 = Workbooks("book1.xls")
    
    book1.Worksheets("sheet2").lb_getBookNo.Caption = Trim(Windows.Application.Workbooks("employeeList").Worksheets("data").Range("C2"))
    book1.Worksheets("sheet2").lb_getDate.Caption = Trim(Windows.Application.Workbooks("employeeList").Worksheets("data").Range("H2"))
    
    
    End If
    
    Windows.Application.Workbooks("book1").Activate
End Sub