"Trocear" strings demasiado largos

[lexus]

hola prueba con esta que es la que yo uso, no recuerdo muy bien quien la hizo,
function cortarcadena(Cadena)
Dim Largo, Separador, arrCadena, i
Dim Veces, j, Tmp, Tmp2
Largo = 30
Separador = " "
arrCadena = Split(Cadena, " ")
For i = 0 to UBound(arrCadena)
If Len(arrCadena(i)) > Largo Then
Veces = (Len(arrCadena(i)) \ Largo) + 1
For j = 1 To Veces
Tmp = Mid(arrCadena(i),(j*Largo) - (Largo - 1), Largo)
Tmp2 = Tmp2 & Tmp & Separador
Next
Tmp2 = Left(Tmp2, Len(Tmp2) - Len(Separador))
arrCadena(i) = Tmp2
End if
Next
cortarcadena = Join(arrCadena)
end function

se usa asi


variable = cortarcadena(variable)