結果 : while loop vba code