Romper lineas cada 90 caracteres

[jochesfor]

Buscas el texto y lo almacenas en TextoCompleto

n = InStr(90, TextoCompleto, " ")
90car = left(TextoCompleto, n-1)
TextoCompleto = right(TextoCompleto, len(TextoCompleto)-(Len(90car)+1))

te Hago un ejemplo sencillo

TextoCompleto = "Hola como estas el dia de hoy"

n = InStr(15, TextoCompleto, " ") 'n=16 el espacio entre estas y el
90car = left(TextoCompleto, n-1) 'se almacena en 90Car="Hola como estas" sin el " "
'ahora eliminas de TextoCompleto lo que esta en 90Car

TextoCompleto = right(TextoCompleto, len(TextoCompleto)-(Len(90car)+1)) 'el +1 elimina el " "
'TextoCompleto = "el dia de hoy"

'Imprime TextoCompleto y 90car

response.write 90car &" "& TextoCompleto 'te debe salir igual al texto original

'si vuelves a aplicarle la funcion InStr a tu nuevo TextoCompleto:

n = InStr(15, TextoCompleto, " ")

'n sera = 0 porque el nuevo TextoCompleto tiene 13 caracteres y se sale del ciclo que debes armar

'si cambias a 15 por 12, esa posicion sera la primera s de "estas", como lo que busca es un " "
'igual te va a quedar 90Car="Hola como estas"

Pruebalo y terminalo.