Public Function FileToHex(ByVal FileName As String) As String
        Dim br As BinaryReader
        Dim sb As New System.Text.StringBuilder
        Try
            br = New BinaryReader(File.OpenRead(FileName))
            Dim bytes() As Byte = New Byte(br.BaseStream.Length) {}
            br.Read(bytes, 0, br.BaseStream.Length)
 
            For i As Integer = 0 To br.BaseStream.Length
                sb.Append(bytes(i).ToString("X"))
            Next
        Catch ex As Exception
        Finally
            If (Not IsNothing(br)) Then
                br.Close()
            End If
        End Try
        Return sb.ToString()
    End Function