Public Interface ICompany
  Property Name() As String
End Interface

Public Class Business
  Implements ICompany

  Dim m_sCompanyName As String

  Public Property CompanyName() As String Implements ICompany.Name
    Get
      CompanyName = m_sCompanyName
    End Get
    Set(ByVal Value As String)
      m_sCompanyName = Value
    End Set
  End Property

End Class