Справочник по visual-basic — Циклы

Do While condition
    ' тело
Loop

Do Until condition
    ' тело
Loop

Do
    ' тело
Loop While condition

Do
    ' тело
Loop Until condition