Display Custome Message on Crystal Report Textbox

Dim objRpt As New rptAppoinment
Dim myMsg As CrystalDecisions.CrystalReports.Engine.TextObject

myMsg = CType(objRpt.ReportDefinition.ReportObjects.Item("Text8"), CrystalDecisions.CrystalReports.Engine.TextObject)

myMsg.Text = "This is my custom message in Crystal Report."