Imports System.Security.Cryptography
  Public Function GetMD5(ByVal filePath As String) As String
    AddLog("Starting GetMD5(ModFileName)")
    If IO.File.Exists(filePath) = False Then
      AddLog("The file " & filePath & "does not exist")
      AddLog("MD5=" & vbNullString)
      Return vbNullString
    End If
    Try
      Dim md5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider
      Dim f As IO.FileStream = _
       New IO.FileStream(filePath, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read, 8192)

      md5.ComputeHash(f)
      f.Close()

      Dim hash As Byte() = md5.Hash
      Dim buff As System.Text.StringBuilder = New System.Text.StringBuilder
      Dim hashByte As Byte

      For Each hashByte In hash
        buff.Append(String.Format("{0:X2}", hashByte))
      Next

      Dim md5string As String
      md5string = buff.ToString()

      AddLog("MD5=" & md5string)
      Return md5string
    Catch
      AddLog("GetMD5 Error " & Err.Number & "(" & Err.Description & ")")
      AddLog("MD5=" & vbNullString)
      Return vbNullString
    End Try
  End Function

8/3/2017 22:08:46   Starting GetMD5(ModFileName)
8/3/2017 22:08:46   GetMD5 Error 5(This implementation is not part of the Windows Platform FIPS validated cryptographic algorithms.)
8/3/2017 22:08:46   MD5=

04.08.2017 5:25:06   GetMD5 Error 5(Данная реализация не является частью протестированных криптографических алгоритмов Windows Platform FIPS.)

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <startup> 
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
    </startup>
  <runtime>
    <enforceFIPSPolicy enabled="false"/>
  </runtime>
</configuration>

<?xml version="1.0" encoding="utf-8"?>
<configuration>
    <startup> 
    <supportedRuntime version="v2.0.50727"/>
      <runtime>
        <enforceFIPSPolicy enabled="false"/>
      </runtime>
    </startup>
</configuration>

<?xml version="1.0" encoding="utf-8"?>
<configuration>
    <startup> 
    <supportedRuntime version="v2.0.50727"/>
      <runtime>
        <enforceFIPSPolicy enabled="false"/>
      </runtime>
    </startup>
</configuration>

<?xml version="1.0" encoding="utf-8"?>
<configuration>
    <startup> 
        <supportedRuntime version="v2.0.50727"/>
    </startup>
    <runtime>
        <enforceFIPSPolicy enabled="false"/>
    </runtime>
</configuration>

Private Const MS_DEFAULT_PROVIDER   As String = _
    "Microsoft Base Cryptographic Provider v1.0"

System.Security.Cryptography.MD5CryptoServiceProvider

    Dim str_md5 As String = ""
    Dim err_text As String = ""
    If GetMD5_API(ModFileName, str_md5, err_text) Then
      AddLog("MD5(API)=" & str_md5)
    Else
      AddLog("MD5(API) Failed. " & err_text)
    End If

..........................

Module ModuleMD5_API

  'Cryptography Functions

  'pszProvider - A null-terminated string that contains the name of the CSP to be used.
  Public Const MS_DEF_PROV As String = "Microsoft Base Cryptographic Provider v1.0"

  'dwProvType - Specifies the type of provider to acquire.
  Public Const PROV_RSA_FULL As Integer = 1

  'dwFlags - Flag values.
  Public Const CRYPT_VERIFYCONTEXT As Integer = &HF0000000

  Public Declare Unicode Function CryptAcquireContext Lib "advapi32" Alias "CryptAcquireContextW" ( _
   ByRef phProv As IntPtr, _
   ByVal pszContainer As String, _
   ByVal pszProvider As String, _
   ByVal dwProvType As Integer, _
   ByVal dwFlags As Integer) As Boolean

  'Algid - An ALG_ID value that identifies the hash algorithm to use.
  Public Const ALG_TYPE_ANY As Integer = 0
  Public Const ALG_CLASS_HASH As Integer = 32768
  Public Const ALG_SID_MD5 As Integer = 3
  Public Const CALG_MD5 As Integer = ALG_CLASS_HASH Or ALG_TYPE_ANY Or ALG_SID_MD5

  Public Declare Function CryptCreateHash Lib "advapi32" ( _
   ByVal hProv As IntPtr, _
   ByVal Algid As Integer, _
   ByVal hKey As IntPtr, _
   ByVal dwFlags As Integer, _
   ByRef phHash As IntPtr) As Boolean

  Public Declare Function CryptDestroyHash Lib "advapi32" ( _
   ByVal hHash As IntPtr) As Boolean

  'dwParam - Query type.
  Public Const HP_HASHVAL As Integer = 2
  Public Const HP_HASHSIZE As Integer = 4

  'использовать с HP_HASHSIZE
  Public Declare Function CryptGetHashParam Lib "advapi32" ( _
   ByVal hHash As IntPtr, _
   ByVal dwParam As Integer, _
   ByRef pbData As Integer, _
   ByRef pdwDataLen As Integer, _
   ByVal dwFlags As Integer) As Boolean
  'использовать с HP_HASHVAL
  Public Declare Function CryptGetHashParam Lib "advapi32" ( _
   ByVal hHash As IntPtr, _
   ByVal dwParam As Integer, _
   ByVal pbData As Byte(), _
   ByRef pdwDataLen As Integer, _
   ByVal dwFlags As Integer) As Boolean

  Public Declare Function CryptHashData Lib "advapi32" ( _
   ByVal hHash As IntPtr, _
   ByVal pbData As Byte(), _
   ByVal dwDataLen As Integer, _
   ByVal dwFlags As Integer) As Boolean
  Public Declare Function CryptReleaseContext Lib "advapi32" _
   (ByVal hProv As IntPtr, ByVal dwFlags As Integer) As Boolean

  Public Function GetMD5_API(ByVal filePath As String, ByRef str_md5 As String, ByRef err_text As String) As Boolean
    GetMD5_API = True
    If IO.File.Exists(filePath) = False Then
      GetMD5_API = False
      err_text = "Error. The specified file does not exist"
      Exit Function
    End If
    Dim m_hProvider As IntPtr 'Cryptographic Service Provider handle.
    If CryptAcquireContext(m_hProvider, vbNullString, _
     MS_DEF_PROV, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) = False Then
      GetMD5_API = False
      err_text = "CryptAcquireContext Error " & RaiseAPIError()
      GoTo ToExit
    End If

    Dim m_hHash As IntPtr 'Hash object handle.
    If CryptCreateHash(m_hProvider, CALG_MD5, IntPtr.Zero, 0, m_hHash) = False Then
      GetMD5_API = False
      err_text = "CryptCreateHash Error " & RaiseAPIError()
      GoTo ToExit
    End If

    Const CHUNK As Integer = 16384
    Dim lngWholeChunks As Long
    Dim intRemainder As Integer
    Dim bytBlock() As Byte

    Try
      Using f As IO.FileStream = _
       New IO.FileStream(filePath, IO.FileMode.Open, IO.FileAccess.Read, IO.FileShare.Read)
        lngWholeChunks = f.Length \ CHUNK
        intRemainder = f.Length - (CHUNK * lngWholeChunks)

        ReDim bytBlock(CHUNK - 1)
        For lngChunk As Long = 1 To lngWholeChunks
          f.Read(bytBlock, 0, CHUNK)
          If CryptHashData(m_hHash, bytBlock, UBound(bytBlock) - LBound(bytBlock) + 1, 0) = False Then
            GetMD5_API = False 'но не выходим, пусть себе дальше пишет черт с ним
            err_text = "CryptHashData Error " & RaiseAPIError()
          End If
        Next
        If intRemainder > 0 Then
          ReDim bytBlock(intRemainder - 1)
          f.Read(bytBlock, 0, intRemainder)
          If CryptHashData(m_hHash, bytBlock, UBound(bytBlock) - LBound(bytBlock) + 1, 0) = False Then
            GetMD5_API = False 'но не выходим, пусть себе дальше пишет черт с ним
            err_text = "CryptHashData Error " & RaiseAPIError()
          End If
        End If
      End Using
    Catch
      GetMD5_API = False
      err_text = "Error " & Err.Number & "(" & Err.Description & ")"
      GoTo ToExit
    End Try

    Dim lngDataLen As Integer = 4 '4 bytes for Integer length.
    Dim lngHashSize As Integer
    If CryptGetHashParam(m_hHash, HP_HASHSIZE, lngHashSize, lngDataLen, 0) = False Then
      GetMD5_API = False
      err_text = "CryptGetHashParam Error " & RaiseAPIError()
      GoTo ToExit
    End If

    Dim bytHashValue() As Byte
    lngDataLen = lngHashSize
    ReDim bytHashValue(lngDataLen - 1)
    If CryptGetHashParam(m_hHash, HP_HASHVAL, bytHashValue, lngDataLen, 0) = False Then
      GetMD5_API = False
      err_text = "CryptGetHashParam Error " & RaiseAPIError()
      GoTo ToExit
    End If

    Try
      Dim buff As System.Text.StringBuilder = New System.Text.StringBuilder
      For Each hashByte As Byte In bytHashValue
        buff.Append(String.Format("{0:X2}", hashByte))
      Next
      str_md5 = buff.ToString()
    Catch
      GetMD5_API = False
      err_text = "Error " & Err.Number & "(" & Err.Description & ")"
      GoTo ToExit
    End Try

ToExit:
    If m_hHash <> IntPtr.Zero Then CryptDestroyHash(m_hHash)
    If m_hProvider <> IntPtr.Zero Then CryptReleaseContext(m_hProvider, 0)
  End Function


End Module