Rate my script

[Mr_Crazy]

This is a vbs program I made. I'm only 9, I'ts not much. Just copy and paste into a text program, save with the file extention .vbs, double click on the file, and enjoy! [img]smile.gif[/img]

Here it is:

Dim Input, BtnCode
Set Input = WScript.CreateObject("WScript.Shell")
Input = InputBox("Enter text.", "Text Popup Version 8.0", "Enter text here")
MsgBox "You entered: " & Input, vbOK,"You entered:"
BtnCode = MsgBox ("Do one more time?", vbYesNo, "Do one more time?")
Select Case BtnCode
case 6 Input = InputBox("Enter text.", "Text Popup Version 8.0", "Enter text here")
MsgBox "You entered: " & Input, vbOK,"You entered:"
MsgBox "Programming by Crazysoft.", vbOK, "Credits:"
MsgBox "Thank you for using Text Popup.", vbOK, "End"
case 7 Input = MsgBox ("Programming by Crazysoft.", vbOK, "Credits:")
MsgBox "Thank you for using Text Popup.", vbOK, "End"
End Select

[ October 25, 2005, 04:51 PM: Message edited by: MrCrazy ]