split vb6

Question

Buenas Tardes Amigos

quisiera saber si alguien puede ayudarme con el siguiente problema

tengo una cadena de 300 caracteres, dicha cadena contiene espacios quisiera saber como puedo hacer para que cada 100 caracteres al llegar a este limite si encuentra un espacio realice un salto de linea en la impresion 

espero puedan ayudarme

Saludos...

Answer 1

dim contador as integer

dim Vct(3) as string

for contador = 1 to 300 step 101

print mid(texto,contador,100) & iif(right(mid(texto,contador,100),1) = " ",chr(10),"")

next