Dim i&, ByteList1() As Byte, ByteList2() As Byte
 
 
 Open Hex.Text For Binary As #1
    ReDim ByteList1(LOF(1) - 1)
    Get #1, , ByteList1
  Close #1
 
 
  Open Hex2.Text For Binary As #1
    ReDim ByteList2(LOF(1) - 1)
    Get #1, , ByteList2
  Close #1
 
  For i = 0 To UBound(ByteList1)
    If ByteList1(i) = ByteList2(i) Then ByteList1(i) = Asc("#")
  Next i
 
  Open "C:\Hex\" & file_Name.Text & ".clear" For Binary As #1
    Put #1, , ByteList1
  Close #1

' Open "c:\Hex\2L959-10030-Clear.bin" For Binary As #1
		FileSystem.FileOpen(1, Clear.Text, OpenMode.Binary)
		Dim ByteList1(FileSystem.LOF(1) - 1) As Byte
		'UPGRADE_WARNING: (2080) Get was upgraded to FileGet and has a new behavior. 
' More Information: http://www.vbtonet.com/ewis/ewi2080.aspx
		FileSystem.FileGet(1, ByteList1, -1)
		FileSystem.FileClose(1)
 
		'Open "c:\Hex\2L959-10030-Crash.bin" For Binary As #1
		FileSystem.FileOpen(1, Crash.Text, OpenMode.Binary)
		Dim ByteList2(FileSystem.LOF(1) - 1) As Byte
		'UPGRADE_WARNING: (2080) Get was upgraded to FileGet and has a new behavior. 
' More Information: http://www.vbtonet.com/ewis/ewi2080.aspx
		FileSystem.FileGet(1, ByteList2, -1)
		FileSystem.FileClose(1)
 
		For i As Integer = 0 To ByteList1.GetUpperBound(0)
            If ByteList1(i) = ByteList2(i) Then ByteList1(i) = Strings.Asc("#")
		Next i
 
		FileSystem.FileOpen(1, "C:\Hex\" & file_Name.Text & ".clear", OpenMode.Binary)
		'UPGRADE_WARNING: (2080) Put was upgraded to FilePutObject and has a new 
' behavior. More Information: http://www.vbtonet.com/ewis/ewi2080.aspx
		FileSystem.FilePutObject(1, ByteList1)
		FileSystem.FileClose(1)