hola tengo un problemilla estoy armando un formulario para post y tengo un problema con los codigos de visual basic

bueno lo que quiero hacer es meter en un textbox1 multiline digamos

< a href="http://pedro.com/dfsafa">[url]http://pedro.com/dfsafa[/url]</a>
< a href="http://jorge.com/eeeee">[url]http://jorge.com/eeeee[/url]</a>
< a href="http://pedro.com/ddddd">[url]http://pedro.com/ddddd[/url]</a>
< a href="http://panchito.com/jyjyjyjy">[url]http://panchito.com/jyjyjyjy[/url]</a>
< a href="http://ramiro.com/eetetet">[url]http://ramiro.com/eetetet[/url]</a>

ahora quiero que en otro textbox2 al pulsar un boton comando

me bote lo siguiente

< a href="http://pedro.com/dfsafa">parte 1</a>
< a href="http://jorge.com/eeeee">parte 2</a>
< a href="http://pedro.com/ddddd">parte 3</a>
< a href="http://panchito.com/jyjyjyjy">parte 4</a>
< a href="http://ramiro.com/eetetet">parte 5</a>

pues quiero lograr eso ni mas ni menos espero que alguien me pueda ayudar con el codigo el primer problema que le veo ahi es que el textbox1 debera leerse linea por linea para que se pueda trabajar con cada linea
el segundo problema que le veo es como poder seleccionar el enlace de la linea del textbox1 digamos http://pedro.com/dfsafa para poder botar < a href="http://pedro.com/dfsafa">parte 1</a> y asi sucesivamente con todos
y el tercer problema si es que se puede solucionar los dos anteriores es como cambiar en cada linea la parte que dice "parte1, parte2 , parte 3, etc...
alguna idea

HOLA!!!

Hola, solo voy a repetir, AAaron... Hace uso de funciones de VB6.

No existe FindStr, En vb6 es InStr para corregir tu codigo a vb6 hay que cambiar estas lineas:

iStart = FindStr(TextBox1, sFind, 0, vbStrCompare)
iEnd = FindStr(TextBox1, sFind, iStart+1, vbStrCompare)

Por estas:

iStart = InStr(0,TextBox1, sFind)
iEnd = InStr( iStart+1, TextBox1, sFind)
 

GRACIAS POR LEER!!!