This is just off the top of my head, as I have no experience with crystal reports, but I have seen similar problems: You can try this:
Dim rpt As New CrystalReport1
Dim txt As TextObject
txt = rpt.Section2.ReportObjects("Text1")
txt.Text = "this is first line " & Chr(13)
txt.Text &= "this is second line "
or this:
Dim rpt As New CrystalReport1
Dim txt As TextObject
txt = rpt.Section2.ReportObjects("Text1")
txt.Text = "this is first line "
txt.Text &= Chr(13) & "this is second line "
If neither of those work, I am afraid you're on your own again. Good luck
My advice is free, and you may get what you paid for.