Primero tienes que  usar el editor de recursos para añadir un "CustomResource", que en el caso dado será elegir el fichero vbs y guardar el fichero de recursos (te lo pide antes de compilar).

Luego en tiempo de ejecución tienes que usar la función LoadResData
Ten presente que dicha función devuelve un array de bytes, con los que ya tu trabajas como te convenga, lo puedes guardar a un fichero y ejecutar y al terminar borrarlo, etc...

Un simple ejemplo de muestra...

Private Sub RescatarElVbs()
    Dim canal As integer, ruta As String
    Dim vbsFile() As Byte
 
    canal  = FreeFile
    ruta  = App.Path & "\" & cstr(now) & ".vbs"
    Open ruta  For Binary As #canal 
    vbsFile = LoadResData(108, "MiVBS")  ' valores ficiticios de ejemplo, deben ser loa que contengan el recurso.
    Put #canal , , vbsFile
    erase vbsFile
    Close #canal 
 
   ' shell(...)  o lo que quieras hacer con ello.
   ' kill ruta .. cuando termines.
end sub
 

Ya lo pude solucionar gracias!!

saludos