Visual Basic

' RichTextBox1 is Visible, RichTextBox2 is not.
'   And make sure RichTextBox1 is cleared of text first.
RichTextBox1.Visible = True
RichTextBox2.Visible = False
RichTextBox1.Clear()

' Now, for each filename:
'   Have the hidden RTB (RichTextBox2) load the file we want
'   then, select all the text in it
'   then, tell the visible RTB (RichTextBox1) to Append the SelectedText in the hidden RTB
'   and then, append a blank line to the bottom of the text.
For Each Filename
    RichTextBox2.LoadFile(filename)
    RichTextBox2.SelectAll()
    RichTextBox1.AppendText(RichTextBox2.SelectedText)
    RichTextBox1.AppendText(vbCrLf)
Next

Public Class clsXL
Dim xl as Excel.Application

Private Sub Class_Initialize()
On Error Resume Next
  Set xl = CreateObject("Excel.Application")
  xl.DisplayAlerts = False
End Sub

Private Sub Class_Terminate()
'  If IsLaunched Then xl.Application.Quit
  Set xl = Nothing
End Sub

Public Function Export(rs As Recordset) as Boolean
dim ws as Worksheet
dim c as integer 'column
dim i as integer 'row counter
  If Not xl Is Nothing Then
    xl.Workbooks.Add
    Set ws = xl.ActiveSheet

'Set the column headers
'....
      'Now loop through the rows & columns of the recordset to add the values
    i = 2
    do while not rs.eof
      for c = rs.fields.count
         w.Cells(i, c) = .Fields(c).Value & vbNullString
         i = i + 1
         rs.movenext
      next
    loop

'Format work sheet further

'now print preview the sheet
    xl.DisplayAlerts = False
    xl.Visible = True
    xl.ActiveWorkbook.Worksheets.PrintOut , , , True
    xl.Visible = False
    xl.Application.Quit
  end if

End Function