Ciao
L'errore è dato dal fatto che l'apice doppio, ovvero questo ->" è il delimitatore delle stringhe quindi quello che tu hai scritto si tradurrebbe più o meno in
"Set WshShell" -> Prima parte
= WScript.CreateObject("WScript.Shell") -> Seconda parte
Che in linguaggio di programmazione vorrebbe dire una cosa assurda del tipo stringa = Creazione di un oggetto il tutto concatenato ad un altra stringa e al VbCrLf.....
Il metodo per scrivere all'interno di una variabile di tipo stringa il carattere " è quello di raddoppiarlo così ""
Per fare un esempio concreto questa è la tua stringa:
Testo = Testo & """Set WshShell"" = WScript.CreateObject(""WScript.Shell"")" & vbCrLf
NB, all'inizio ci sono tre apici perchè uno informa Vb che stai scrivendo una stringa, mentre gli altri due subito attaccati servono a dire a Vb che il carattere che vuoi scrivere è un apice, da li in poi ne uso sempre 2 e quando arrivo alla fine ho aggiunto un apice per dire a Vb che ho concluso con la stringa
Spero di esserti stato utile