Try something like this:

Dim shellObject

Set shellObject = CreateObject("WScript.Shell")

Dim execObject

Set execObject = shellObject.Exec(" ")

While (execObject.Status = 0)

WScript.Sleep(100)

WEnd

WScript.Shell also has Run method, which waits for spawned process to finish...