Public Class SimpleMsg

  'member variable to store the message text
  Private strMessage As String

  'property to allow get/set functionality on
  'strMessage member variable
  Public Property MsgText() As String
    Get
      MsgText = strMessage
    End Get
    Set(ByVal Value As String)
      strMessage = Value
    End Set
  End Property

End Class