[решено] Повторение двух и более команд - Компьютерный форум OSzone.net

Добрый день.
Нужно сделать повторение пяти строк в коде.
Вот пример:

Код:

Dim FSO, c, a, b, i, WshShell

Set FSO=CreateObject("Scripting.FileSystemObject")

i = 1

a = InputBox("Для папки введи - pack, для ткстового документа - txt, для vbScript'a - VBScript, выйти - exit")

If StrComp(a, "exit", vbTextCompare) Then

else

WScript.Quit 1

end if

c = inputbox("Введите название.")

fso.Createtextfile(c & ".txt")

[первая метка повторения]

b = inputbox("Введите содержание. Если закончить содержание то введите <<exits>>. Каждая строка начинается с начала.")

set write = fso.OpenTextFile(c & ".txt", 2, false)

write.writeline b

write.close

If StrComp(b, "exits", vbTextCompare) Then

[вторая метка повторения]

else

MsgBox "Файл " & c & " успешно создан!"

WScript.Quit 1

end if

Код между строками <<[первая метка повторения]>> и <<[вторая метка повторения]>> должен повторятся до бесконечности.
Заранее спасибо.