В данной статье приведены макросы, работающие только при установленном .NET Framework

Перестановка строк в обратном порядке в текстовом файле:

Sub ReverseTextFile()

    Filename$ = "c:\test.txt" ' строки в этом файле будут переставлены в обратном порядке

    Set FSO = CreateObject("Scripting.FileSystemObject")

    Set objFile = FSO.OpenTextFile(Filename$, 1)

    Set a = CreateObject("System.Collections.Stack") ' создаем объект класса «стек»

    Do Until objFile.AtEndOfStream

        a.push objFile.ReadLine ' добавляем строку в стек

    Loop

    objFile.Close

    Set objFile = FSO.OpenTextFile(Filename$, 2)

    Do Until a.Count = 0

        objFile.WriteLine a.pop ' извлекаем строку из стека

    Loop

    objFile.Close

End Sub

CreateObject("System.Collections.ArrayList")
http://www.ozgrid.com/forum/showthread.php?t=167349

Шифрование SHA1
CreateObject("System.Security.Cryptography.HMACSHA1")
http://www.mcpher.com/Home/excelquirks/getmaps/apikeys

Шифрование MD5
http://excelvba.ru/code/MD5