Private Sub ComputeSHATest()
    
    Debug.Print "SHA256"
    Debug.Print GetSHA256(Range("A1"))

    Debug.Print "SHA384"
    Debug.Print GetSHA384(Range("A1"))
    
    Debug.Print "SHA512"
    Debug.Print GetSHA512(Range("A1"))
End Sub