X = 0
Dim Y

 Y = InputBox("Wie viele Testdurchläufe ?", "Test", "1")
 if not IsNumeric(Y) Then 
  MsgBox "Bitte eine Zahl eingeben", 48
  WScript.Quit 
 End if

 Y = CInt(Y)
 if Y = "0" Then WScript.Quit ' (Eingabe 0 = Quit)
 
do
  X=X+1 ' (Zähler)
  Ausgabe = MsgBox("Testdurchlauf " & X & " von " & Y , 1)
  if Ausgabe = 2 Then WScript.Quit ' (cancel button = quit)

loop until X = Y