Visual Basic.NET - Cortar cadena por espacio (sin cortar palabras)

Public Function CortarCadenaPorPalabras(CadenaEntrada As String, NumCaracteresEnParrafo As Integer) As IList(Of String)

        Dim retorno As List(Of String) = New List(Of String)    'lista con los parrafos

        Dim palabra As String

        Dim contenedor As String

        If CadenaEntrada.Length = 0 Then

            'si la cadena de entrada esta vacia devolvemos una coleccion vacia.

            Return retorno

        ElseIf CadenaEntrada.Length <= NumCaracteresEnParrafo Then

            'si la cadena tiene [NumCaracteresEnParrafo] caracteres o menos, devolvemos sólo un elemento con la cadena entera

            retorno.Add(CadenaEntrada)

            Return retorno

        End If

        'contenedor para almacenar las palabras mientras que la longitud del párrafo sea menor que [NumCaracteresEnParrafo] 

        contenedor = ""

        For Each palabra In CadenaEntrada.Split(" "c)

            'si la palabra tiene más de [NumCaracteresEnParrafo] caracteres seguidos, se trozea

            If palabra.Length >= NumCaracteresEnParrafo Then

                If contenedor.Length > 0 Then retorno.Add(contenedor)

                Do

                    Dim trozo As String = palabra.Substring(0, NumCaracteresEnParrafo - 1)

                    retorno.Add(trozo)

                    palabra = palabra.Remove(0, NumCaracteresEnParrafo - 1)

                Loop While palabra.Length >= NumCaracteresEnParrafo

            End If

            If palabra.Length > 0 Then

                If contenedor.Length + palabra.Length + 1 > NumCaracteresEnParrafo Then

                    retorno.Add(contenedor)

                    contenedor = palabra

                Else

                    contenedor = contenedor & " " & palabra

                End If

            End If

        Next

        If contenedor.Length > 0 Then retorno.Add(contenedor)

        Return retorno

    End Function