Befüllen eines RT Feldes mittels einer Schaltfläche

Sub Click(Source As Button)           
Dim s As New NotesSession      
Dim db As NotesDatabase      
Dim doc As NotesDocument      
Dim docProfile As NotesDocument      
Dim rtItem As NotesRichTextItem           
Dim ws As New NotesUIWorkspace      
Dim uidoc As NotesUIDocument           
Dim text As Variant           wuerde entfallen


Set db=s.CurrentDatabase      
Set uidoc=ws.currentdocument      
Set doc=uidoc.document      
text=Join(doc.comment)      wuerde entfallen


If uidoc.FieldGetText("comment")
Then                           
Set docProfile=db.GetProfileDocument ( "dbprofil")          
Set rtItem=DocProfile.getfirstItem("Eurofaxtext")          
Call doc.CopyItem( rtItem, "Comment" )          
Doc.save True, False          
Set uidoc=ws.editdocument(True, doc)      
Else          
Msgbox "Das Feld ist bereits gefüllt !"      
End If       
End Sub