Aide pour Script VBS

Bonjour,

J'utilise un petit script que j'ai récupéré sur le net pour automatiser l'envoi d'un email par un simple clic.
_________________________________________________________________________________

' Envoi automatique d'un message avec fichiers joints.
' Nécéssite Windows 2000/XP ou une installation
' Microsoft Office (Outlook).
' JMST@ & Paskal & Mithrandir
' WWW.FAQOE.COM
'
On Error Resume Next
With CreateObject("CDO.Message")
If Err Then
MsgBox "CDO non installé"
Else
.From="adresse expéditeur"
.To="adresse destinatairer"
.Subject="Essai email automatique"
.TextBody="Bon pour essai envoi email automatique JR"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
End If
On Error GoTo 0
End With
'
'
'Le script est crée automatiquement, mais les éventuelles
'erreurs de syntaxe d'adresses, ou de format de mail ne
'sont pas corrigées.
'Attention aux guillements dans le corps du message.
'
______________________________________________________________________________________

Je ne pratique absolument pas la programmation et donc voici ma question qui pour vous va vous paraître bien ridicule :

Dans la partie" TextBody=" je veux que le texte du message soit mis en forme avec des retours à la ligne, voire des sauts de lignes et je ne sais comment faire.
Ex :
Bon pour essai envoi email automatique
Cordialement
JR
Si je les rentre par le simple appuis sur la touche retour du clavier, lorsque je clic sur le script j'ai un message d'erreur et il ne fonctionne pas.
Si une bonne âme pouvait me donner la technique, je l'en remercie par avance