strUserIn = InputBox("Enter Data")
Wscript.Echo strUserIn