Sostituisci il blocco Do ..... While con questo :

codice:
Do While Len(mRowText) > 0
	If Microsoft.VisualBasic.Len(mRowText) < RowLen Then
 	    sRet = sRet + sCR + mRowText
	    Exit Do
	End If 

	sToken =Microsoft.VisualBasic.Mid(mRowText,1,RowLen)
	sRet = sRet + sCR + sToken
	mRowText = Microsoft.VisualBasic.Mid(mRowText,RowLen + 1)
Loop
Con questa modifica, però, ti andrà a capo esattamente al
carattere specificato.

Ciao,
Brainjar.

PS: Il mio nick è BRAINJAR non Bryanjar o Brianjar.