How do I put insert Linebreak

[Erays]

Sub HeyLetter()
Dim Word                As Object
    Dim fSlash As String, dAddy As String
    fSlash = Application.PathSeparator
    dAddy = Environ("userprofile") & "\Desktop\"
'-- Begin the Word setup
Application.ScreenUpdating = False
    Set Word = CreateObject("Word.Basic")
    Word.FileNewDefault
    Word.AppShow
    Word.FormatFont Font:="Courier New", Points:=12
    Word.Bold 1
    Word.FormatParagraph Alignment:=0
    Word.Insert " Hey I just wanted to say have a nice weekend.  "
    Word.Insert (I would like to insert a Line break here)
    Word.Insert " My Name"
    Word.InsertPara
    Word.FormatFont Font:="Courier New", Points:=10
    Word.Bold 0
    Word.FormatParagraph Alignment:=0
    Application.ScreenUpdating = True
End Sub

[Kieran]

try

Sub HeyLetter()
Dim Word                As Object
    Dim fSlash As String, dAddy As String
    fSlash = Application.PathSeparator
    dAddy = Environ("userprofile") & "\Desktop\"
'-- Begin the Word setup
Application.ScreenUpdating = False
    Set Word = CreateObject("Word.Basic")
    Word.FileNewDefault
    Word.AppShow
    Word.FormatFont Font:="Courier New", Points:=12
    Word.Bold 1
    Word.FormatParagraph Alignment:=0
    Word.Insert " Hey I just wanted to say have a nice weekend.  "
    Word.Insert Chr(10)
    Word.Insert " My Name"
    Word.InsertPara
    Word.FormatFont Font:="Courier New", Points:=10
    Word.Bold 0
    Word.FormatParagraph Alignment:=0
    Application.ScreenUpdating = True
End Sub

[Erays]

Thank you now it works just fine