Prob mit EXcel VBA to Lotus Mail

[Rumburak]

Hallo!

Folgendes Problem habe ich:
Ein Excel VBA Script soll ein Excel Formular auslesen und in eine LN Mail posten.
Dies funktioniert mittlerweile auch, also Mail Adressat und Betreff werden korrekt eingegeben.
leider gelibgt es mir nicht den Text aus der Excel Tabelle zu formatieren.
Der Text wird am Stück hintereinander geschrieben.

Kann mir jemand den Quelltest ändern? Ich bin leider kein Programmierer, und bastele an dem Code...
Danke
Christoph

'****************************************************************************************
Sub eMail_Hyperlink()
Dim eMailEmpfaenger As String, eMailBetreff
Dim TbBodyInhalt As String

'Anpassen:
'****************************************************************************************
eMailEmpfaenger = "test@de.test.com"
eMailBetreff = "Reset"

'Die Abschnitte: '& "%0D%0A" &' erzeugen einen Zeilenumbruch
TbBodyInhalt = ActiveSheet.Range("A1") & "%0D%0A" & "   " & _
ActiveSheet.Range("A4") & "%0D%0A" & "   " & _
ActiveSheet.Range("B4") & "%0D%0A" & "   " & _
ActiveSheet.Range("A5") & "%0D%0A" & "   " & _
ActiveSheet.Range("B5") & "%0D%0A" & "   " & _
ActiveSheet.Range("B6")
'****************************************************************************************



Range("A1").Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:" & eMailEmpfaenger & "?subject=" & eMailBetreff & "&body=" & TbBodyInhalt
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Selection.Hyperlinks(1).Delete
End Sub