Nefunkční Excel VBA script

Proč tento script, který jsem našel jako příklad na webu nefunguje? Nemůžu na to přijít, prosím o radu.
Sub M_snb()
MsgBox Replace(Filter(Split(CreateObject("wscript.shell").exec("cmd /c net user").stdout.readall, vbCrLf), "user name")(0), "user name ", "")
End Sub