Achei outra função....Pelo Tarkan da wmonline <%
Function PularLinha(StrTrata,Quantidade)
StrTrata = CStr(StrTrata)
Quantidade = Cint(Quantidade)
A = 0
For aux = 1 To Len(StrTrata)
StrNovo = Mid(StrTrata, aux, 1)
Saida = Saida & StrNovo
A = A + 1
IF A = Quantidade then
Saida = Saida & " "
A = 0
End IF
Next
PularLinha = Saida
End Function
Response.Write PularLinha("aaaaaaaaaaaaaaaaaaaa",5)
%>