Dim TestReport As New rptTestReport1
Dim YourText As CrystalDecisions.CrystalReports.Engine.TextObject
YourText = CType(TestReport.ReportDefinition.ReportObjects.Item("txtWhatever"), CrystalDecisions.CrystalReports.Engine.TextObject)
YourText.Text = "This is what you want it to say"