Dim hasher As New XceedEncryptionLib.XceedHashingClass()

hasher.License( "your license key" )      

Try
  dim sha As New XceedEncryptionLib.XceedSHAHashingMethodClass() 

  sha.HashSize = 256

  hasher.HashingMethod = sha 

  Dim source As Object = "This is the data to hash"

  hasher.Hash(  source, true ) 

  Dim hash As Object = sha.HashValue
Catch except As  System.Runtime.InteropServices.COMException
  MessageBox.Show( except.ToString() )
End Try