H="dusk colmar"
Do
H=InputBox (date & time,"American English",H)
if H="" then Exit Do
CreateObject("sapi.spvoice").speak H
Loop
H="dusk colmar"
Do
H=InputBox (date & time,"American English",H)
if H="" then Exit Do
CreateObject("sapi.spvoice").speak H
Loop