End Sub ' CustomerName property. Public Property Get CustomerName CustomerName = m_CustomerName End Property Public Property Let CustomerName(newValue) m_CustomerName = newValue End Property End Class Dim cust Set cust = New Customer cust.CustomerName = "Fabrikam, Inc." Dim s s = cust.CustomerName MsgBox (s)