Comparar la fecha actual de textbox con una fila de excel

Hola Expertos he buscado en "creo" todas las preguntas pero no he encontrado algo parecido a lo que busco, y es que en excel quiero comparar un textbox1 creado en vba que pone la fecha actual automáticamente, pero lo que pasa es que quiero que busque en toda la columna A que es donde tengo todas las fechas de incidencias, y una vez que encuentre 1 o varias incidencias del día, copie la celda de la derecha y me aparezca en un textbox2 que lo tengo creado.

No soy un experto en excel pero me he creado un código que en principio me servia para números pero no para fechas. Os doy las gracias de antemano.

saludos.

luis

Private Sub UserForm_Initialize()
TextBox1 = Date 'fecha
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then
Me.TextBox1.Value = ""
End If
Application.ScreenUpdating = False
On Error GoTo ConError
Sheets("Hoja1").Select
Range("A2").Select
Range("A:A").Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
TextBox1 = ActiveCell
TextBox2 = ActiveCell.Offset(0, 1).Value
TextBox3 = ActiveCell.Offset(0, 2).Value
Exit Sub
ConError:
MsgBox "no hay"
Application.ScreenUpdating = True
End Sub