Dim y As Integer = 1 'Do the action while the condition is not true 'add 1 to y while y is not equal to 10 Do While Not y = 10 MsgBox("Y value = " & y) y += 1 Loop