Option Explicit

Sub DoWhile()
    Dim Num As Integer
    Num = 1
    Do While Num <= 10
        MsgBox "While，过程中" & Num
        Num = Num + 1
    Loop
    '当数值满足条件时，运行，并且Num并没有增量，所以无法停止
     MsgBox "While，过程后" & Num
    Do Until Num >= 9
        MsgBox "Until,过程中" & Num
        Num = Num - 1  
'        If Num < 5 Then
'        End If
    Loop
    '当数值不满足条件时，运行，并且Num没有增量，所以无法跳出循环

目标是可以让数据从1循环11，然后再从11循环到5，然后用条件代码，跳出

在想怎么可以让If和Do While和Do Until联用,注释掉的代码，有没有有思路的小伙伴，后四行好像有点问题