Sub loops()
Dim i As Integer
Dim j As Integer
i = 1
' Precondition loop
Do While (i < 3)
i = i + 1
Loop
MsgBox "i = " & i, vbInformation
j = 1
' post-condition loop
Do
j = j - 1
Loop While (j > 4)
MsgBox "j = " & j, vbInformation
End Sub