Antes de nada,saludar a todos los componentes del foro pues me acabo de registrar

Necesito una pequeña ayuda para hacer funcionar mi archivo EnvioMail.vbs

set objcdo=createobject("cdo.message")
objcdo.subject="bla bla bla"
objcdo.from="micorreo@hotmail.com"
objcdo.to="tucorreo@hotmail.com"
objcdo.textbody="Este es el texto del mail"
objcdo.addattachment("c:\miarchivo.zip")

........................
..............................
pues lo que quiero es poder usar la funcion randomize y reemplace,para que cada vez que mande un correo me cambie el texto escrito en el campo de objcdo.subject="bla bla bla" y me genere uno aletorio cada vez

tengo esta funcion ramdomize,aunque el resultado lo muestra en un Msgbox  

WScript.Echo TextRandom(12)
 
Function TextRandom(Count)
    Randomize
    For i = 1 To Count
        If (Int((1 - 0 + 1) * Rnd + 0)) Then
            TextRandom = TextRandom & Chr(Int((90 - 65 + 1) * Rnd + 65))
        Else
            TextRandom = TextRandom & Chr(Int((57 - 48 + 1) * Rnd + 48))
        End If
    Next
End Function

pero no se como agregarla con la funcion reemplace dentro de mi archivo EnvioMail.vbs, me seria de gran utilidad poderlo hacer funcionar.

PD:Soy novato en esto,pues no se si lo que propongo se puede o no hacer  

Gracias por la ayuda Eleкtro

soy novato en esto,el error era mio,error tonto y muy simple pues seguia usando comillas dobles en el campo del asunto

PD:Por mi parte el tema esta solucionado y Cerrado,un saludo compañeros