Ok, gracias, se me soluciono el problema con el VB6 pero en el vbs no me a servido
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private Sub Form_Load()
Dim wsh as Object
wsh = CreateObject("WScript.shell")
'cuando la declaro me dice el depurador que no existe
...
End Sub