Class SimpleMsg

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

  Public Function MsgText() As String
    MsgText = strMessage
  End Function

  Public Sub MsgText(ByVal Value As String)
    strMessage = Value
  End Sub

End Class