Dim MyVar, Input 
MyVar = 0
MyVar = MyVar + 1
MyVar = MyVar + 1
MyVar = MyVar + 1
MyVar = MyVar + 1
MyVar = MsgBox ("MyVar is now " & MyVar, 65, "pssssssssst......")
Application.SetText = "Now you can set the text HERE by script alone."
Input = InputBox("Enter your name") 
DO
    Application.SetText = "You entered: " & CHR(13) & CHR(10) & Input
    Input = InputBox("Now enter something else:") 
    IF Input = "" Then Exit Do
LOOP


