Versuchs mal so:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim picklist As Variant
Dim messagelist As String
Dim uidoc As NotesUIDocument
Dim notesuIDocument As NotesUIDocument
picklist = workspace.PickListStrings( PICKLIST_CUSTOM, False, "" , "DETA0514BACKUPCHRIS.NSF" , "inserttext" , "Insert Text" , "Bitte wählen Sie aus" , 2 , "" )
Set uidoc = workspace.CurrentDocument
Call uidoc.FieldAppendText ( "Body", "" )
End Sub