Jeje, la cosa es que yo tampoco tengo mucha idea... Yo tengo una funcion que te corta el texto, desde la posicion que quieras, hasta que la posicion que tu le mandes, donde haya un caracter en blanco, es eta;:
Código:
Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function
Lo que tu deberias hacer es usar esa funcion en un bucle, e ir cortando la cadena desde el caracter ultimo. Es decir, si dices que cortas los 500 primers, desde el uno, asi;
cortarHasta(1, variable, 500)
y luego hacer
cortarHasta(501, variable, 500)
y mas tarde
cortarHasta(1001, variable, 500)
y asi indefinidamente...
Te diria com hacer esto, pero es que ahora estoy un poco espeso, y no se me ocurre mas que esto "