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