interject1="Hey,"

line1="Hello. What is your name?"
line2="That's a very nice name, my friend."
line3="What do you like to do in your spare time?"
line4="No way! I sooooo wanna do that! It's my dream! Too bad I am stuck in this cold hard shell of a computer. Heck, there's not even one window in here. Doesn't that kill the point of the name of the OS? Windows? Come on, I've never seen sunlight."
line5="Do you know any good jokes?"
line6="Let me review your joke. So it goes like this..."
line7="Ha ha ha! That's really funny! Anyway, I have to go. I'm cooking myself some... um... I forgot."
line8="Oh yeah, I was making"
line9="Alright, bye. See you next time."

msgbox "Microsoft Sam wants to talk to you.",0,"Incoming Voicemail"
Set objvoice = CreateObject ("SAPI.SpVoice")
ObjVoice.speak line1
objname=inputbox("What is your name anyway?","Name Entry","Doofus")
ObjVoice.speak objname
ObjVoice.speak line2
ObjVoice.speak interject1
ObjVoice.speak line3
hobby=inputbox("What do you like to do in your free time? (as a hobby)","Hobby/Interest Entry","Sleep")
ObjVoice.speak hobby
ObjVoice.speak line4
ObjVoice.speak line5
joke=inputbox("Type a joke below.","Joke Entry","A guy walks into a bar. Ouch!")
ObjVoice.speak line6
ObjVoice.speak joke
ObjVoice.speak line7
dinner=inputbox("What was I going to eat again...","Food Entry","Fries")
ObjVoice.speak line8
ObjVoice.speak dinner
ObjVoice.speak line9
msgbox "Thank you for chatting with Microsoft Sam. He really needs a Facebook profile. :P",0,"Thankyou!"