Переход на новую строку в texbox после запятой

TextBox1.Text = Replace(TextBox1.Text, ",", vbCrLf)

        TextBox1.Text = "Вася, Петя, Коля, Дима."
        TextBox1.Text = String.Join(vbCrLf, From i As String In TextBox1.Text.Split(" "c) _
                                            Let ii = i.Trim _
                                            Where ii.Length > 0
                                            Select ii)

TextBox1.Select(TextBox1.TextLength - 1, 1)
        TextBox1.SelectedText = "."c

        If TextBox1.TextLength > 0 Then
            TextBox1.Select(TextBox1.TextLength - 1, 1)
            TextBox1.SelectedText = "."c
        End If

 If TextBox2.TextLength < 1 Then
 
        Else
 
            TextBox2.Text = TextBox2.Text.Substring(0, TextBox2.Text.Length - 1)
            TextBox2.Text = TextBox2.Text & "."
 
        End If

        If TextBox1.TextLength > 0 Then
            If TextBox1.Text.LastIndexOf(","c) = TextBox1.TextLength - 1 Then
                TextBox1.Select(TextBox1.TextLength - 1, 1)
                TextBox1.SelectedText = "."c
            End If
        End If

If TextBox2.TextLength < 1 Then
 
        Else
 
            If TextBox2.Text.LastIndexOf(","c) = TextBox2.TextLength - 1 Then
                TextBox2.Select(TextBox2.TextLength - 1, 1)
                TextBox2.SelectedText = "."c
            End If
 
        End If