Dim rtbTmp As New RichTextBox ' Temporary Rich Text Box
            Dim datobj As New System.Windows.Forms.DataObject
            Dim counter = 0
 
            For Each element As String In array                                
                If Not String.IsNullOrEmpty(element) Then
                    'txtContrl.Append(element, StringStreamType.RichTextFormat, 
                    ' AppendSettings.StartWithNewParagraph)
                    If counter = 0 Then
                        rtbTmp.Rtf = caption ' Copy RichTextBox1 into rtbTmp
                        rtbTmp.AppendText(vbCrLf) ' Leerzeile nach Überschrift
                        datobj.SetData(DataFormats.Rtf, element) ' Copy 
                        ' RichTextBox2 to the Clipboard
                        Clipboard.SetDataObject(datobj)
                        rtbTmp.SelectionStart = rtbTmp.TextLength
                        rtbTmp.Paste()
 
                        counter = counter + 1
                    Else
                        ' Paste RichTextBox2's copied text to the end of _
                          Temporary Rich Text Box
                        datobj.SetData(DataFormats.Rtf, element)
                        Clipboard.SetDataObject(datobj)
                        rtbTmp.SelectionStart = rtbTmp.TextLength
                        rtbTmp.Paste()
                        ' Copy combined contents of Temporary Rich Text Box to 
                        ' the clipboard
                    End If
 
                End If
            Next