这段CMD命令，怎么通过VBA调用执行

请教，这段CMD命令，怎么通过VBA调用执行

@echo off
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %s0 ::","","runas",1)(window.close)&&exit
cd /d "%dp0"
sfc /scannow

这段命令是以管理员身份运行CMD并执行sfc命令下的 /scannow参数。按理说肯定可以写入到VBA里，但是到VBA里，只能执行sfc命令，无法添加/scannow这个参数。请指点。