'selCase.vbs
'The following is an example of how to use Select Case
'Scripting by Fusion 13
'webmaster@Fusion13.com Please send attachments and personal programs and or scripts
'computing.Fusion13.com
'7-22-01
'Copyright Fusion 13

Option Explicit
dim xbox
dim userNumber
dim goAgain
goAgain = 6 'denotes a 'Yes' answer for user (outlined at bottom)

while goAgain = 6
	userNumber = Inputbox("Please Enter a Number 1 - 3", "Enter A Number")
	
	'xbox = msgbox(usernumber)
			'line 12

	if usernumber <= 0 then
	xbox = msgbox("The number that you picked was too low.", vbokonly + 				vbcritical, "0 or Less")
	end if

	Select Case userNumber
		Case 1
			xbox = msgbox("The number that you picked was '1'.", vbokonly + 						vbinformation, "1")
		Case 2
			xbox = msgbox("The number that you picked was '2'.", vbokonly + 					vbinformation, "2")
		Case 3
			xbox = msgbox("The number that you picked was '3'.", vbokonly + 					vbinformation, "3")

	End Select

goAgain = msgbox("Would you like to try the Script again?", vbyesno, "Go Again?")
'yes = 6
'no = 7
wend