Работа с бинарными файлами - Visual Basic .NET

                    If Val(bSpartak) > 0 Then
                        If Val(bDr_Games) = 0 Then
                            dry_game += 1
                            TextBox1.Text = "Дата: " + data + ", забито мячей " + bSpartak + vbCrLf
                        End If
                    End If

TextBox1.Text = dry_game  + vbCrLf

Imports System.IO
Public Class Form4
    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyFile1 As String = "D:\Football4.bin"  ' Имя файла
        Dim points As Integer = 0
        Dim data, bSpartak, bDr_Games As String
        Dim dry_game As Integer = 0
        Dim MyFileStream As FileStream
        Dim MyBinaryReader As BinaryReader
        Try
 
            MyFileStream = New FileStream(MyFile1, FileMode.Open)
            MyBinaryReader = New BinaryReader(MyFileStream)
            TextBox1.Clear()
 
            While True
                If MyBinaryReader.PeekChar <> -1 Then
                    data = MyBinaryReader.ReadString
                    bSpartak = MyBinaryReader.ReadString
                    bDr_Games = MyBinaryReader.ReadString
 
                    If Val(bSpartak) > 0 Then
                        If Val(bDr_Games) = 0 Then
                            dry_game += 1
                            TextBox1.Text = "Дата: " + data + ", забито мячей " + bSpartak + vbCrLf
                        End If
                    End If
                Else
                    Exit While
                End If
            End While
 
            If dry_game = 0 Then
                TextBox1.Text = "Нет матчей, выигранных на сухую"
            End If
 
            MyBinaryReader.Close()
            MyFileStream.Close()
        Catch ex As Exception
            MessageBox.Show("Файл Football4.bin не найден!", _
                            "ОШИБКА ОТКРЫТИЯ ФАЙЛА", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
End Class