Comments box in cell "red information marker" next line code required

[ipbr21054]

Evening,

From my userform i type in a textbox & send this to a cells comments box.
Ive formatted how i would like the box to look but need one more edit & im complete.

Here is the code in use to format my comments.

         With ActiveSheet.Cells(lastrow + 1, 4).Comment.Shape
                .Fill.ForeColor.RGB = vbCyan
                .LINE.Weight = 1#

                With .TextFrame
                    .AutoSize = True
                    With .Characters
                        With .Font
                            .Size = 12
                            .Name = "Calibri"
                            .Bold = True
                        End With
                    End With
                End With
            End With
    Else
         .Cells(lastrow + 1, 4).Value = TextBox6.Text
    End If

My goal is to be able to force the text on the userform to the next line as currently the comments box goes straight across the page.

I have attached a photo of what the current output looks like using the code shown above.

I have also attached a photo of what im trying to do.

hope this can be done.

Thanks