Считывание из файла - VB (170444)

Формулировка задачи:

У меня вопрос. Почему когда пробую считать из файла, то выдает ошибку что не может считать? вот код

Dim bin_reader As BinaryReader
        Dim str_reader As StreamReader
        Dim file As FileStream
        file = New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
        bin_reader = New BinaryReader(file)
        str_reader = New StreamReader(file)
        TextBox3.Text = bin_reader.ReadInt32
        TextBox4.Text = bin_reader.ReadSingle
        CheckBox1.Checked = bin_reader.ReadBoolean
        TextBox1.Text = str_reader.ReadLine
        TextBox2.Text = str_reader.ReadLine

Решение задачи: «Считывание из файла»

textual
                            Листинг программы 
                        

                            Public Function ReadBytes(Path$, Optional ByVal Flag As Boolean, Optional ByRef Start&, Optional ByVal Dln&) As Byte()
    'Чтение байт из файла
    'Арг: Путь // Флаг кодировки Ansi-Unicode // Старт // Длина
    'Возврат: Массив байт
    Dim n, ff
    ff = FreeFile
    Open Path For Binary As #ff
    If Start Then Else Start = 1
    n = LOF(ff) - Start + 1
    If Dln = 0 Or Dln > n Then Dln = n
    ReDim Preserve ReadBytes(Dln - 1)
    Get #ff, Start, ReadBytes
    If Not Flag Then ReadBytes = StrConv(Bytes, vbUnicode)
    Start = Start + UBound(ReadBytes) + 1
    Close #ff
End Function
                        