Fpdf e testo che fuoriesce

[centro]

ciao,.. continuo a rispondermi da solo...
ho trovato questo scriptino di santino83

dim testo,maxLen,att
maxLen=150 'splitto ogni 100 caratteri spazi inclusi)
testo=miotesto

    parole=split(testo," ")
    

    testo=""
    att=0
    
    for each parola in parole
    testo=testo & " " & parola
    att=att+len(parola)+1
    
    if att>=maxLen  then
        testo=testo &  vbCrLf 
        att=0
    end if
    next 

mi funge.. almeno questo mi fa andare a capo nel pdf... c'è solo un piccolo problem che lo scritp calcola la lunghuezza non tendendo ocnto delgi a capo che già sono presenti nel testo
io ho pensato di aggiungere

if InStr(testo,vbCrLf)=0


così...

dim testo,maxLen,att
maxLen=150 'splitto ogni 100 caratteri spazi inclusi)
testo=testo_abstract




    parole=split(testo," ")
    

    testo=""
    att=0
    
    for each parola in parole
    testo=testo & " " & parola
    att=att+len(parola)+1
    if InStr(testo,vbCrLf)=0then 
        if att>=maxLen  then
           testo=testo &  vbCrLf 
           att=0
          end if

       end if
    next 

ma non mi funge... cosa mi sfugge...?

ciao e grazie....