If function in a Do While loop, which bug at the end (I'm new) runtime error 13 type mismatch