Loops: VBS code

We vragen eerst de tekst op
tekst = InputBox("Geef de tekst die ik moet herhalen")
Voor het aantal moeten we zeker zijn dat het om een getal is.
do
aantal = InputBox("Geef het aantal keer dat ik moet herhalen")
loop until isnumeric(aantal)
De eigenlijke herhaling doen we als volgt:
Dim msg
Dim teller
For teller = 1 To aantal
msg = msg & tekst & " (" & teller & ")" & " "
Next
MsgBox msg
Noteer dat het niet noodzakelijk is de variabelen te declareren.