Les traigo un efecto sus script. Es un efecto parecidio al que sale en Matrix  cuando Neo esta en frente de la pc y en la pantalla aparece

Neo,levantate .Sigue al conejo blanco

Bueno aqui esta la funcion  y tambien una breve explicacion de cada parte del codigo

Code:
 

  'llamamos a la funcion MaqEsc() con el texto incluido casi 
'al final esta un numero este indica el tiempo en milisegundos 
'en que iran apareciendo las letras
 
 call MaqEsc("HOLA SOY EL USUARIO .::KSV::. DEL FORO DE ELHACKER.NET",60)
 Function MaqEsc(Striing,tt) 
For i = 1 To Len(Striing) 'Iniciamos un for hasta la ultima letra ,para saber 
X = (Mid(Striing, i, 1)) 'cuantas letras son usamos Len() esto regresa la cantidad de letras 'nos movemos letra x letra con mid(cadenaDeTexto,EmpezandoPor,CantidadDeLetrasAprosesar) 
 
If x= " " then 'Si el caracter que estamos analizando 
wscript.sleep 00 'es espacio se ignora y "aparece de inmediato" 
else 'De lo contrario se espera tt tiempo wscript.sleep tt 'tt = al tiempo q se le asigna en mi caso 60 milisegundos 
End If 
Wscript.StdOut.Write x  'Escribe caracter por caracter tambien se puede usar wscript.echo x
Next 
wscript.sleep 3000 'esperamos 3000 milisegundos osea 3 s. y cerramos 
End function

Espero que les guste Adios