While～Wend文ってなんぞ

Do While～Loopと全く一緒。
互換性のために残っている模様。Doを使いましょう。

Sub test1()
    
    Dim i As Long
    
    i = 0
    While i < 10
        i = i + 1
    Wend
    Debug.Print i '10
    
    i = 0
    Do While i < 10
        i = i + 1
    Loop
    Debug.Print i '10
    
    i = 0
    Do Until i >= 10
        i = i + 1
    Loop
    Debug.Print i '10
    
End Sub

UntilはWhileと逆の意味の条件式で混乱するから嫌い。
NotをつければWhileと同じ条件式で書ける！（最初からWhileで書ｒｙ）

Do Until Not i < 10
    i = i + 1
Loop

以上。