I would do:
Set WshShell = CreateObject("Wscript.Shell") On Error Resume Next WshShell.Run "cmd.exe", 8, True
Remark: I got the hint from this issue