RectangularRoom.cls

Option Explicit
Implements Room
Implements FloorLevel

Private mWidth As Double
Private mLength As Double
Private mLevel As String

Public Property Let Width(ByVal value As Double)
    mWidth = value
End Property

Public Property Let Length(ByVal value As Double)
    mLength = value
End Property

Public Property Let Level(ByVal value As String)
    mLevel = value
End Property

Public Function Room_Area() As Double
    Room_Area = mWidth * mLength
End Function

Public Function FloorLevel_FlightsOfStairs() As Integer
    Select Case mLevel
    Case "G"
        FloorLevel_FlightsOfStairs = 0
    Case "B"
        FloorLevel_FlightsOfStairs = -1
    Case Else
        FloorLevel_FlightsOfStairs = CInt(mLevel)
    End Select
End Function