Чтение из файла и дальнейшая обработка данных - Visual Basic .NET - Ответ 3200066

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Выбор файла Excel 
        Dim ofd As New OpenFileDialog
        ofd.Filter = "Bin failes|*bin"
        If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Return
        Dim path As String = ofd.FileName
 
        Try
            Dim myFileStream As System.IO.FileStream
            myFileStream = New System.IO.FileStream(path, IO.FileMode.Open)
            Dim myBinaryReader As New System.IO.BinaryReader(myFileStream)
 
            'считываем файл в переменную bData
            Dim bData() As Byte = myBinaryReader.ReadBytes(myFileStream.Length)
 
            'объявляем массив
            Dim str() As String
            ReDim str(bData.Length)
 
            'перебираем все элементы массива
            For i As Integer = 0 To bData.Length - 1
                str(i) = Hex(bData(i).ToString)
            Next
            'визуализируем данные
            RichTextBox1.Lines = str
 
            myBinaryReader.Close()
            myFileStream.Close()
 
        Catch err As Exception
            MsgBox(err.ToString) 'ошибка если файла не найдено
 
        End Try
 
    End Sub
End Class

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Выбор файла Excel 
        Dim ofd As New OpenFileDialog
        ofd.Filter = "Bin failes|*bin"
        If ofd.ShowDialog = Windows.Forms.DialogResult.Cancel Then Return
        Dim path As String = ofd.FileName
 
        Try
            Dim myFileStream As System.IO.FileStream
            myFileStream = New System.IO.FileStream(path, IO.FileMode.Open)
            Dim myBinaryReader As New System.IO.BinaryReader(myFileStream)
 
            'считываем файл в переменную bData
            Dim bData() As Byte = myBinaryReader.ReadBytes(myFileStream.Length)
 
            'объявляем строку
            Dim str As String = ""
            'счетчик столбцов
            Dim n As Integer = 0
            'временная переменная
            Dim Temp As String
            'перебираем все элементы массива
            For i As Integer = 0 To bData.Length - 1
                Temp = Hex(bData(i).ToString)
                If Len(Temp) = 1 Then Temp = "0" & Temp
                Select Case n
                    Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14
                        str = str & Temp & "  "
                    Case 15
                        str = str & Temp & vbCrLf
                        n = -1
                End Select
                n += 1
            Next
            'визуализируем данные
            RichTextBox1.Text = str
 
            myBinaryReader.Close()
            myFileStream.Close()
 
        Catch err As Exception
            MsgBox(err.ToString) 'ошибка если файла не найдено
 
        End Try
 
    End Sub
End Class