Sub PrintNumbers() Dim num As Integer num = 0 Do num = num + 1 Debug.Print num Loop Until num = 27 End Sub