Private Sub MyButton_Click()   

    Dim Context As RIPEMD320_Context

    Dim Digest As RIPEMD320_Digest

    Dim MyStrData As String

    MyStrData = "Hello World!"

    Dim nLen As Long

    nLen = Len(MyStrData)

    'Convert the string to byte array

    Dim MyBinData() As Byte

    ReDim MyBinData(1 To nLen)    

    For i = 1 To nLen

        MyBinData(i) = Asc(Mid(MyStrData, i, 1))

    Next i    

    'Initialize the context

    RIPEMD320_Init Context

    'Update the context with first part

    Dim nFirstLen As Long

    nFirstLen = nLen / 3

    RIPEMD320_Update Context, MyBinData(1), nFirstLen

    'Update the context with second part

    RIPEMD320_Update Context, MyBinData(nFirstLen + 1), nLen - nFirstLen

    'Get the digest

    RIPEMD320_Final Context, Digest

    'Show the hexadecimal representation of the digest

    MsgBox QHASH_ConvertToHex(Digest.Value(0), RIPEMD320_DIGESTSIZE, True)

End Sub