TextBox に文字列を追加する。

TextBox の文字列を改行コードを境に分割し、リストに収納。
文字列をリストに追加したのち、改行コードを加え、TextBoxへコピー。

Public Class MemoControl

    Private ListObj As List(Of String)

    Public Sub New()
        Me.ListObj = New List(Of String)
    End Sub

    Public Sub Add(ByRef str As String, ByRef TextBoxObj As TextBox)
        TextBoxToListObj(TextBoxObj)
        ListObj.Add(str)
        ListToTextBox(TextBoxObj)
    End Sub

    Private Sub TextBoxToListObj(ByRef TextBoxObj As TextBox)
        Me.ListObj.Clear()
        For Each line As String In TextBoxObj.Text.Split(ControlChars.NewLine)
            Me.ListObj.Add(line)
        Next
    End Sub

    Private Sub ListToTextBox(ByRef TextBoxObj As TextBox)
        Dim strArray() As String = Me.ListObj.ToArray()
        TextBoxObj.Text = Join(strArray, ControlChars.NewLine)
    End Sub

End Class

Dim memo As MemoControl = New MemoControl
memo.Add("Hello,world!", TextBox1)

どんどん追加できるけど最後はどうなる・・・？