função p/ quebrar a linha depois de tantos dígitos

eu mexi para naum quebrar palavras entendem, para quebrar a linha em vez de quebrar a palavra no meio, quebrar nos espaços...

mas nem parei muito tempo e resolvi jogar nas mãos de vcs...

AI ESTÁ

Function PularLinha(StrTrata,Quantidade)StrTrata = CStr(StrTrata)Quantidade = Cint(Quantidade)A = 0For aux = 1 To Len(StrTrata)StrNovo = Mid(StrTrata, aux, 1) Saida = Saida & StrNovo A = A + 1IF A = Quantidade then A = 0 For i = aux-10 to aux+10 MyStr = mid(StrTrata,i,1) if MyStr = " " then Saida = Saida & MyStr Saida = Saida & "<br>" exit for Else Saida = Saida & "<br>" exit for End if Next End IFNextPularLinha = SaidaEnd Function

se conseguirem postem aki...

VALEW