[VB] Niepoprawna suma MD5 dla pliku - co robię źle?

    Private Sub bmd5pliku_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bmd5pliku.Click
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.ShowDialog()
        Dim sciezka As New IO.FileInfo(OpenFileDialog1.FileName)
        Dim wielkosc As Integer = sciezka.Length
        txtsciezka.Text = sciezka.ToString
        txtmd5.Text = MD5(wielkosc.ToString)
    End Sub

    Private Function MD5(ByVal Content As String) As String
        Dim MD5 As New Security.Cryptography.MD5CryptoServiceProvider
        Dim ByteString() As Byte = System.Text.Encoding.ASCII.GetBytes(Content)
        ByteString = MD5.ComputeHash(ByteString)
        Dim FinalString As String = Nothing
        For Each bt As Byte In ByteString
            FinalString &= bt.ToString("x2")
        Next
        Return FinalString

    End Function

txtmd5.Text = MD5(sciezka)

Sub Get_File_Size()

File1 = "c:\temp\Sample.txt"

MsgBox "The Size of the File is " & FileLen(File1) & " bytes"
End Sub

Dim infoReader As System.IO.FileInfo
infoReader = My.Computer.FileSystem.GetFileInfo("C:\testfile.txt")
MsgBox("File is " & infoReader.Length & " bytes.")

Private Sub Command3_Click()
CommonDialog2.DialogTitle = "Otwórz plik"
CommonDialog2.InitDir = "c:\"
CommonDialog2.filename = "Wybierz plik"
CommonDialog2.CancelError = True
On Error Resume Next
CommonDialog2.ShowOpen
If Err Then
    MsgBox "Nie wybrano pliku"
    Else
      Text2.Text = UCase(md5test.DigestFileToHexStr(CommonDialog2.filename))
End If

End Sub

Public Function DigestFileToHexStr(filename As String) As String
    Open filename For Binary Access Read As #1
    MD5Init
    Do While Not EOF(1)
        Get #1, , ByteBuffer
        If Loc(1) < LOF(1) Then
            ByteCounter = ByteCounter + 64
            MD5Transform ByteBuffer
        End If
    Loop
    ByteCounter = ByteCounter + (LOF(1) Mod 64)
    Close #1
    MD5Final
    DigestFileToHexStr = GetValues
    
End Function