結果 : do while loop excel vba function