Zeilenumbruch, wenn Textbox in Mail eingefügt wird

Private Sub CommandButton2_Click()
'* 11.01.2008, 15:50:00                                 *
'* erstellt von Rene Holtz, http://www.rholtz-office.de _
a>
'* rene.holtz@rholtz-office.de                          *
On Error Resume Next
Dim empfänger As String
Dim Kopie As String
Dim aws As String
Dim olApp As Object
Kopie = TextBox5.Text
empfänger = TextBox1.Text
On Error Resume Next
Dim rng As Range
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
Set rng = Worksheets("Tabelle10").Range("$D$251:$BG$337")
.To = empfänger
.CC = Kopie
.Subject = TextBox2.Text
.htmlbody = TextBox3.Value & vbCrLf & vbCrLf & vbCrLf & RangetoHTML(rng)
If CheckBox1.Value = True Then .ReadReceiptRequested = True
.Display ' zeigt die Email an
Set rng = Nothing
Set olApp = Nothing ' beendet die Outlooksession.
End With
Unload Me
End Sub

In die TextBox3 gebe ich ein entsprechendes Anschreiben ein. Danach wird der Bereich aus
Tabelle10 angefügt.
Das klappt soweit wunderbar, allerdings werden die Zeilenumbrüche und das Textformat
der Textbox (Arial10) vollkommen ignoriert.
Gibt es eine Möglichkeit, die Zeilenumbrüche und das Format der Textbox beim Einfügen
in die Mail zu erhalten ?
Andre