Modifying sub macro from DATA to DATE

Hello,

Can someone please modify this from data to date instead. The attachment is searching data for now. I want to switch to search dates.

Sub Macro3()
'
' Macro3 Macro Search Entry Data
'

'
Dim sFind
sFind = InputBox("Please enter search data", "Search Box", "LB-22")
If sFind = "" Then Exit Sub

    ActiveSheet.Range("$A$2:$A$17").AutoFilter Field:=1, Criteria1:="=*" & sFind & "*", _
        Operator:=xlAnd
End Sub