>>88-89
Dim i As Long
For i = 1 To 10
　Do
　　If i = 5 Then Exit Do
　　Print CStr(i)
　Loop While False
Next

みたいな感じ。