Esto es desarollo web, tienes un servidor web en tu red local? A mi me parece que solo quieres fastidiar a tus clientes del ciber.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú<div id="animaciongif" />
Obj = document.getElementById("animaciongif")
Obj.innerHTML = "<img src='http://gifsanimados.wtf/anim1.gif' />"
Obj.content = "<img src='http://gifsanimados.wtf/anim1.gif' />"
'TextBox1 contiene los datos de los links que quieres procesar.
'para este proposito:
'TextBox1 = "< a href=""http://pedro.com/dfsafa"">[url]http://pedro.com/dfsafa[/url]</a>"
Dim sFound As String
Dim iStart As Integer, iEnd As Integer
Const sFind = """"
'iStart = FindStr(TextBox1, sFind, 0, vbStrCompare)
'iEnd = FindStr(TextBox1, sFind, iStart+1, vbStrCompare)
'Modificado para adecuarse a la realidad :/
iStart = InStr(0,TextBox1, sFind)
iEnd = InStr( iStart+1, TextBox1, sFind)
sFound = Mid$(TextBox1, iStart, (iEnd - iStart))
'TextBox2 para estos propositos es el Cuadro de texto al que quieres agregar la informacion
TextBox2 = "<a href=""" & sFound & ">Parte 1</a>"