Using the Do...Until Loop with a Condition at the Bottom of the Loop
Sub PrintNumbers() Dim num As Integer num = 0 Do num = num + 1 Debug.Print num Loop Until num = 27 End Sub