Imports System.Text
Imports System.IO
 
Public Function MD5FileHash(ByVal sFile As String) As String
    Dim MD5 As New MD5CryptoServiceProvider
    Dim Hash As Byte()
    Dim Result As String = ""
    Dim Tmp As String = ""
 
    Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, _
      FileShare.Read, 8192)
    MD5.ComputeHash(FN)
    FN.Close()
 
    Hash = MD5.Hash
    For i As Integer = 0 To Hash.Length - 1
        Tmp = Hex(Hash(i))
        If Len(Tmp) = 1 Then Tmp = "0" & Tmp
        Result += Tmp
    Next
    Return Result
End Function

---------------
VB.NET macht Spaß!