Sub cmdDoLoopWhile() Dim intValue As Integer intValue = 10 Do intValue = intValue + 1 Loop While intValue < 35 End Sub