Dim tekst
Dim aantal
tekst = InputBox("Geef de tekst die ik moet herhalen")
do
aantal = InputBox("Geef het aantal keer dat ik moet herhalen")
loop until isnumeric(aantal)
Dim msg
Dim teller
For teller = 1 To aantal
msg = msg & tekst & " (" & teller & ")" & " "
Next
MsgBox msg