So erzwingen Sie einen Zeilenumbruch innerhalb einer Zelle:

Sub Zeilenumbruch()
    With Worksheets(1).[a1]
        .WrapText = True
        .Value = "Zeile 1" & Chr(10) & "Zeile 2"
    End With
End Sub