Visual Basic.NET - problemas al imprimir un textbox multilinea vb.net

Public Shared Function dividirTexto(ByVal texto As String, ByVal maxCaracteres As Integer) As String

        Dim count As Integer = 0

        Dim result As String = ""

        For Each palabra In texto.Split(Convert.ToChar(" "))

            If (palabra.Length  + count <= maxCaracteres)  OrElse (result = "") Then

                result = result  & palabra & " "

                count = count  + palabra.Length + 1

            End If

            If (count >= maxCaracteres) Then

                result = result & Environment.NewLine

                count = 0

            End If

        Next

        Return result

    End Function

'' Dividiendo el texto del TextBox multiline  en 50 caracteres (palabras completas) por línea

Dim resultado As String = dividirTexto(TextBoxMultiline.Text, 50)

Public Shared Function dividirTexto(ByVal texto As String, ByVal maxCaracteres As Integer) As List(Of String)

        Dim list As New List (Of String)

        Dim result = ""

        Dim count As Integer = 0

        For Each palabra In texto.Split(Convert.ToChar(" "))

            If (palabra.Length  + count <= maxCaracteres)  OrElse (result = "") Then

                result = result  & palabra & " "

                count = count  + palabra.Length + 1

            End If

            If (count >= maxCaracteres) Then

                list.Add(result)

                result = ""

                count = 0

            End If

        Next

        Return list

    End Function

For Each (linea In TextBoxConSaltosDeLinea.Text.Split(Environment.NewLine))

   ''codigo para insertar linea

   '' aumentar un contador para indicar la siguiente coordenada "Y", si es necesario (para que no se imprima en la misma línea)

Next