Set SAPI = CreateObject("S"+"API.SpV"+"oic"+"e")
SAPI.Speak "A"+"ttention"+"! Attent"+"ion! Attenti"+"on!"
For i = 1 to 10
SAPI.Speak "Y"+"our docum"+"ents, phot"+"os, datab"+"ases and other impor"+"tant"+" files have been encr"+"ypted!"
Next