Dim hasher As New XceedEncryptionLib.XceedHashingClass()

hasher.License( "your license key" )      

Try
  Dim sha As New XceedEncryptionLib.XceedSHAHashingMethodClass() 

  sha.HashSize = 256

  hasher.HashingMethod = sha
  hasher.ReadFile( "c:\test\file.txt", 0, 0, XceedEncryptionLib.EXEFileProcessing.efpHash, true )

  Dim hash As Object = sha.HashValue      

Catch except As  System.Runtime.InteropServices.COMException
  MessageBox.Show( except.ToString() )
End Try