SHA256 Excel Formula

mod.vb

Function SHA256Hash(Text As String) As String
    Dim asc As Object
    Dim enc As Object
    Dim TextBytes() As Byte
    Dim HashBytes() As Byte
    Dim i As Integer

    Set asc = CreateObject("System.Text.UTF8Encoding")
    Set enc = CreateObject("System.Security.Cryptography.SHA256Managed")

    TextBytes = asc.GetBytes_4(Text)
    HashBytes = enc.ComputeHash_2((TextBytes))

    SHA256Hash = ""
    For i = 0 To UBound(HashBytes)
        SHA256Hash = SHA256Hash & LCase(Right("0" & Hex(HashBytes(i)), 2))
    Next i
End Function