Do
[Операторы]
[Exit Do]
[Операторы]
Loop [{While / Until} Условие]
Если условие проверяется в начале цикла, то он никогда не выполняется в случае невыполнения условия. Если же проверка происходит в конце, цикл выполняется как минимум один раз, независимо от того. выполнено условие или нет. Тело цикла выполняется неопределённое число раз, пока условие не вызовет выход из цикла:
Do
Until EOF ()
Input # 1, SomeDate