Делай так:
Selection.AutoFilter Field:=30, Criteria1:=">=" & CDbl ( CDate (TextBox_Date1)), _
Criteria2:="<=" & CDbl ( CDate (TextBox_Date2))
Дело в том, что Excel хранит значения дат в виде числа (впрочем это везде так). Если в фильтре Excel'я писать "12/05/05", то он поймёт. А если в фильтре на VBA, то он воспримет это как строку и будет сравнивать с числами (т.е. датами в числовом формате) - результат очевиден.
И вообще с датами надо аккуратно. Например:
прибавить один день к дате из TextBox_Date1:
TextBox_Date1.Text = ( DateAdd ("d", 1, TextBox_Date1.Text))
присвоить текущую дату:
TextBox_Date1 = CStr(Date)