Public Class clsSYBCA4child
    Inherits clsSYBCA4

    Dim office As String = "5"

    Sub display()
        MsgBox("MY BUSINESS IS " & business)
        MsgBox("NO OF OFFICES IS " & office)

    End Sub
End Class
