Certo ... la Shell e' asincrona ... quindi, scrivi

codice:
    Dim wsh As Object
    
    Set wsh = CreateObject("Wscript.shell")

    wsh.run "Cmd /C Dir /s E:\temp\*.mp3 >E:\Temp\ElencoMp3.txt", 1, True

    Set wsh = Nothing