This is related to spaces in folder path.
Eg:
This doesnt work:
vbs = "Office Add-Ins\Excel\runmacro.vbs"
This works:
vbs = (Chr(34) & "Office Add-Ins\Excel\ & "\runmacro.vbs" & Chr(34))
https://stackoverflow.com/questions/21267283/error-running-shell-object-commands-through-excel-vba
https://www.mrexcel.com/board/threads/method-run-of-object-iwshshell3-failed.910567/