A = inputbox ("Anfangszahl eingeben")

Do

If A/2 = int(A/2) Then
A = A/2
Else
A = 3 * A +1-1 +1
End if

Wscript.Echo A

Loop until A="1"