Language Basics VisualBasic Script

Sub whileDemo()
    While Documents.Count < 10
        Documents.Add
    Wend
End Sub