Excel VBA DIR仅循环一次

I created a VBA that loops through excel files in a stored folder. It loops only through the ones that has the word "BAD" in it's file name. My Problem is DIR seem to only work once? StrFile = "" after the line I created a VBA that loops through excel files