Расчет хэш с помощью DigtCrypto.HashedData
Подскажите пожалуйста в каком случае может возникать ошибка "Дублирование хэш-объекта", при использовании didgcrypto.dll
Весь текст:

Dim CryptoARM As Object
Set CryptoARM = CreateObject("DigtCrypto.HashedData")
CryptoARM.Algorithm = "1.2.643.2.2.9"
CryptoARM.HashFile "c:\q1.txt"
MsgBox CryptoARM.Value(0)

В момент попытки исполнения оператора CryptoARM.Value(0)
появляется ошибка:

Run time error -2147467259(80004005)
Ошибка дублирование хэш-объекта
Не поддерживается(0х80004001)

Спасибо.