That's because you didn't have "and " in the first instance so when it was null the second instance started with "And "
Include "And " in all the instances and then at the end use- strFilter = right(strFilter,Len(strfilter)-4) which will strip off the first "And "