https://remp3indir.net/do-loop-while-visual-basic/