CAPICOM Hash returning different values -

Private Function HashFile(filename As String) As String
    Const lngChunkSize = 100000
    Dim theHash As CAPICOM.HashedData
    Dim lngFreeFile As Long
    Dim strChunk As String
    
    Set theHash = New CAPICOM.HashedData
    
    theHash.Algorithm = CAPICOM_HASH_ALGORITHM_MD5
    
    lngFreeFile = FreeFile
    
    Open filename For Binary Access Read As lngFreeFile
    Do
        If lngChunkSize > LOF(lngFreeFile) - Loc(lngFreeFile) Then
            strChunk = Space$(LOF(lngFreeFile) - Loc(lngFreeFile))
        Else
            strChunk = Space$(lngChunkSize)
        End If
        Get lngFreeFile, , strChunk
        theHash.Hash strChunk
    Loop Until Loc(lngFreeFile) = LOF(lngFreeFile)
    Close lngFreeFile
    
    HashFile = theHash.Value
    
    Set theHash = Nothing
End Function