Hai provato anche con :
a = Shell("net start,vbNormalFocus")