結果 : for each loop in visual basic