This is a website opener

This is a website opener hope you enjoy the code is :
 
Set wshshell=wscript.createobject("wscript.shell")
Dim msg,input
msg = "Open URL:" & vbCR
msg = msg & "" & vbCR
msg = msg & "1. Google.com " & vbCR
msg = msg & "2. Yahoo " & vbCR
msg = msg & "3. Free Download Centre " & vbCR
msg = msg & "4. Youtube " & vbCR
msg = msg & "5. Facebook " & vbCR
input = InputBox(msg,"Website Links By BJseal91")
Select Case input
case "1"
wshshell.run("www.google.co.uk")
case "2"
wshshell.run("www.Yahoo.co.uk")
case "3"
wshshell.run("www.freedownloadscenter.com/")
case "4"
wshshell.run("www.youtube.co.uk")
case "5"
wshshell.run("www.facebook.com/")
End Select
 

I'm guessing you from the uk. Also I've made my own version of this before, well with batch

 yes from the uk ("United Kingdom") your wright sounds like we have another batch writer as well I have wrote a lot of batch Files myself but perfer the .vbs because you can do and find more things out with .vbs ("VisualBasicScript") but what did you think of the script is more the case :)