English spellings

Difficult to spell English. Try this simple  steps.

1. Copy paste following codes into note pad

 Dim Talk

set Talk = createobject("wscript.network")
do
strInput = InputBox("Type anything below! To Hear It Spoken!", "Infinite posts")

If strInput = False Then

WScript.quit

Else
                If Len(StrInput) = 0 Then

                MsgBox"You did not enter anything. Try again",48,"Warning"

                Else

                Set Sapi = Wscript.CreateObject("SAPI.SpVoice")

                Sapi.speak strInput

                End If

End If
loop

2. Now save it as a .VBS format, Like this

3. Thats all

Try this..!!!