How To Make Your Computer Talk To You

This takes 30 seconds but brings a whole lot of fun. Just copy the link below and away we go.

Dim Message, Speak
Message=InputBox("Enter
text","Speak")
Set
Speak=CreateObject
Speak.Speak
Message