To create your own Dictation Dialog Box -

1)Open Notepad and type this code -

Code:

Dim msg, sapi

msg=InputBox("Enter your text","Talk it by PHOENiX.505")

Set sapi=CreateObject("sapi.spvoice")

sapi.Speak msg

[Replace "Enter your text" by text you want]
[Replace "Talk it by PHOENiX.505" by text you want as Title of the Window]

2)Save by name ANYTHING.'VBS'
[Replace ANYTHING by your filename]