Filtro de Excel por fecha no funciona VBA

Selection.TextToColumns FieldInfo:=Array(0, 4)
Thoughtless Tapir