Class Module VB.Net Tutorial

Imports System.IO
Structure Product
    Dim ProdID As String
    Dim ProdDescription As String
    Dim ListPrice As Single
    Dim Available As Boolean
    Dim MinStock As Integer
End Structure
public class Test
   public Shared Sub Main
        Dim objBW As BinaryWriter
        Dim objFS As FileStream
        Dim objProduct As Product
        objFS = New FileStream("Records.bin", FileMode.OpenOrCreate, FileAccess.Write)
        objBW = New BinaryWriter(objFS)
        objBW.BaseStream.Seek(0, SeekOrigin.Begin)
        objProduct = New Product
        With objProduct
            .ProdID = "1"
            .ProdDescription = "AAA"
            .ListPrice = 4.99
            .Available = True
            .MinStock = 40
        End With
        SaveRecord(objBW, objProduct)
        objProduct = New Product
        With objProduct
            .ProdID = "2"
            .ProdDescription = "BBB"
            .ListPrice = 0.99
            .Available = True
            .MinStock = 1000
        End With
        SaveRecord(objBW, objProduct)
        objBW.Close()
        objFS.Close()
   End Sub
    Private Shared Sub SaveRecord(ByVal objWriter As BinaryWriter, ByVal objRecord As Product)
        With objWriter
            .Write(objRecord.ProdID)
            .Write(objRecord.ProdDescription)
            .Write(objRecord.ListPrice)
            .Write(objRecord.Available)
            .Write(objRecord.MinStock)
        End With
    End Sub   
End class