apos quantidade de palavras nova linha

[sidao_40]

estou com problema, gostaria que meu codigo desse quebra de linha apos uma quantidade de frases não na quantidade de caractres pois ele quebra a palavra no meio

Dim Texto As String

Dim Limite As Integer

Dim Linha As Integer

Dim Final As Integer

Dim TextoPronto As String

Dim Texto As String

Dim I As Integer

Texto = txtObs.Text

Limite = 30

Final = Len(Texto) Mod Limite

Linha = (Len(Texto) - Final)

For I = 1 To Linha Step Limite

objPDF.PDFTextOut "", 20

objPDF.PDFTextOut Mid(Texto, I, Limite) & vbNewLine

Next I

If Final > 0 Then

objPDF.PDFTextOut "", 20

objPDF.PDFTextOut Right (Texto, Final)

'End If

[Jhonas]

se voce estiver trabalhando com vetores, fica simples ... basta contar a quantidade de caracteres e no vetor de quebra verificar se o conteudo esta vazio ou não ...

se não estiver vazio, basta testar os vetores anteriores ate achar um conteudo vazio e a partir dai efetuar a quebra

abraço