Dim Shared As String texto, dividido()

texto = "In olden times when wishing still helped one, there lived a king " &_
"whose daughters were all beautiful, but the youngest was so beautiful "&_
"that the sun itself, which has seen so much, was astonished whenever "&_
"it shone-in-her-face.  Close-by-the-king's castle lay a great dark "&_
"forest, and under an old lime-tree in the forest was a well, and when "&_
"the day was very warm, the king's child went out into the forest and "&_
"sat down by the side of the cool-fountain, and when she was bored she "&_
"took a golden ball, and threw it up on high and caught it, and this "&_
"ball was her favorite plaything."

Sub Split(splitArray() As String, subject As String, delimitador As String = " ")
    Dim As Integer esteDelim, sgteDelim, toks
    Dim As String tok

    Redim splitArray(toks)

    Do While Strptr(subject)
        sgteDelim = Instr(esteDelim + 1, subject, delimitador)
        splitArray(toks) = Mid(subject, esteDelim + 1, sgteDelim - esteDelim - 1)
        If sgteDelim = FALSE Then Exit Do
        toks += 1
        Redim Preserve splitArray(toks)
        esteDelim = sgteDelim
    Loop
End Sub

Sub WordWrap(s As String, n As Integer)
    Split(dividido(),s," ")
    Dim As String fila = ""
    For i As Integer = 0 To Ubound(dividido)
        If Len(fila) = 0 Then
            fila = fila & dividido(i)
        Elseif Len(fila & " " & dividido(i)) <= n Then
            fila = fila & " " & dividido(i)
        Else
            Print fila
            fila = dividido(i)
        End If
    Next i
    If Len(fila) > 0 Then Print dividido(Ubound(dividido))
End Sub

Print "Ajustado a 72:"
WordWrap(texto,72)
Print !"\nAjustado a 80:"
WordWrap(texto,80)
Sleep