Date after Filter Date with VBA not show

I use VBA for filter Date in excel as below.

Sub FilterDate (Date2 as String)

Sheets("Cash").Select
MsgBox (Date2)

Range("E1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$J$373").AutoFilter Field:=5, Criteria1:= _
"<"& Date2 , Operator:=xlAnd
End Sub

MsgBox show 31/05/2021

But output after filter show blank.

Capture.JPG

Please guide me for solve it.