Dim f As FileStream = New FileStream(Box_FileOpen.Text, _
                  FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
 
                Dim MD5 As New MD5CryptoServiceProvider
                Dim Hash As Byte()
                Dim Result As String = ""
                Dim Tmp As String = ""
 
                Dim ObjFSO As Object = CreateObject( _
                  "Scripting.FileSystemObject")
                Dim ObjFile = ObjFSO.GetFile(Box_FileOpen.Text)
 
                MD5.ComputeHash(f)
                f.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
 
                Box_Hash1.Text = (Result)