結果 : do while loop vba code