結果 : do until loop in visual basic