while loop in visual basic 6.0

join shbcf.ru