Dim z As Integer = 0 'Do the action until the condition is true 'add 1 to z until z equals 20 Do Until z = 20 MsgBox(z) z += 1 Loop