MD5-Hash einer datei ermitteln..

[IP-MAN]

Hallo Leute.
Ich möchte gerne von einer beliebigen Datei den MD5-HASH Wert.
Und zwar habe ich folgenden Code gefunden:
"

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

Quelle:
http://dotnet-snippets.de/dns/den-md5-hash-einer-datei-ermitteln-SID77.aspx
"

Wenn man mit dieser Funktion eine größe Datei scannt, hängt der Prozess.
Mir wurde gesagt man soll die Funktion etwas umschreiben,
dass er nur noch z.B 350KB scannt und daraus einen MD5 Hash ermitteln kann.
Wer kann mir schnell den Code umschreiben, oder mir erklären wie ich das am besten
hinbekomme.
Vielen Dank an euch!
MFG
IP-MAN