Se il textbox e' multiline

Text1.Text = Text1.Text & List1.List(n) & vbCrLf