Class VB.Net

Imports System
Public Class MainClass
    
    Shared Sub Main()
        Dim doc As New Document("Test Document")
        doc.Status = -1
        doc.Read(  )
        doc.Compress(  )
        Console.WriteLine("Document Status: {0}", doc.Status)
    End Sub
End Class
     Interface IStorable
         Sub Read(  )
         Sub Write(ByVal obj As Object)
         Property Status(  ) As Integer
     End Interface
     Interface ICompressible
         Sub Compress(  )
         Sub Decompress(  )
     End Interface
     Public Class Document
         Implements ICompressible, IStorable
         Public Sub New(ByVal s As String)
             Console.WriteLine("Creating document with: {0}", s)
         End Sub
         Public Sub Read(  ) Implements IStorable.Read
             Console.WriteLine("Implementing the Read Method for IStorable")
         End Sub
         Public Sub Write(ByVal o As Object) Implements IStorable.Write
             Console.WriteLine( _
               "Implementing the Write Method for IStorable")
         End Sub
         Public Property Status(  ) As Integer Implements IStorable.Status
             Get
                 Return myStatus
             End Get
             Set(ByVal Value As Integer)
                 myStatus = Value
             End Set
         End Property
         Public Sub Compress(  ) Implements ICompressible.Compress
             Console.WriteLine("Implementing Compress")
         End Sub
         Public Sub Decompress(  ) Implements ICompressible.Decompress
             Console.WriteLine("Implementing Decompress")
         End Sub
         Private myStatus As Integer = 0
     End Class