[vba] "While .. End While" doesn't work in VBA?