Ti ringrazio.
Non so perchè ma non mi funziona.

Ho appena trovato invece una soluzione simile che invece mi funziona:

Set objStdOut = objWshScriptExec.StdOut
While Not objStdOut.AtEndOfStream

Wend