Nach jeder Ausgabe muss man enter drücken

Hier ist ein kleiner Quelltext für die Schule leider komme ich da nett weiter. Es sollen die Zahlen von 1-10 ausgegeben werden. Leider muss man nach jeder Ausgabe ENTER drücken wie kann ich die komplette zahlen reihe in einem Fenster ausgeben.

Dim intZeile
Dim paul(11,11)
Dim paul_ausgabe
Dim ausgabe(10,10)

while (i<=9)
i=i+1
paul(0,i)=i
paul(1,i)=i
paul_ausgabe=paul(0,i)
MSGBOX paul_ausgabe
wend

Dim paul
paul = ""  
i = 0
While (i<=9)
i=i+1
If paul = "" Then  
paul = i
Else
paul = paul & vbCrLf & i
End If
Wend
MSGBOX paul

Dim paul(10)
Dim strAusgabe
i = 0
While (i<=9)
i = i +1
paul(i) = i
Wend
While (i>=1)
strAusgabe = strAusgabe & paul(i) & vbCrLf
i= i - 1
Wend
MsgBox strAusgabe