Notes/Domino 4 and 5 Forum

Would somebody please tell me the problem with NotesRichTextItem. I want to copy the contents of a RT item from one form to another db's document. When I tested the codes with default value in the RTitem, it worked fine. But without the default value, the Object variable not set error is generated.

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim newDoc As NotesDocument
Dim newDb As NotesDatabase

'Set the Marketing Request Database
Set db = session.CurrentDatabase
Set newdb = New NotesDatabase("MF_Lexington_NS", "JobRequest.nsf")

Set doc = session.DocumentContext

'called the doc.Save but did not help with the problem
'Call doc.save(true,false)

Set newDoc = New NotesDocument(newdb)
newDoc.Form = "Job Request"


'Set the values for the Job Request (jobrequest.db) document, taken from the Job document (launch.db)
'Non RT fields worked fine
newDoc.ProjectName = doc.JobTitle(0)


Dim tempDescription As NotesItem

Set tempDescription = doc.getFirstItem("JobDescription")
Call tempDescription.CopyItemToDocument(newdoc,"Description")

Any help will be greatly appreciated