Yo use el siguiente codigo pero el resultado no incluye un enumerador automatico como el que tu realizaste:
Private Sub Command1_Click()
Dim a() As String
a = Split(Text1, vbNewLine)
For i = 0 To UBound(a)
Text2 = Text2 & "<script>code(""Enlace 00"",""" & a(i) & """);</script>" & vbNewLine
Next i
End Sub
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub
el resultado es el siguiente:
<script>code("Enlace 00","TEXT1");</script>
<script>code("Enlace 00","TEXT2");</script>
<script>code("Enlace 00","TEXT3");</script>
pero yo quiero que se enumere de la siguiente forma:
<script>code("Enlace 00
1","TEXT1");</script>
<script>code("Enlace 00
2","TEXT2");</script>
<script>code("Enlace 00
3","TEXT3");</script>
Resumiendo: con el codigo que me dejaste no se como agregarle la palabra "Enlace" delante del enumerador y con el codigo que estuve usando no se como ponerle el enumerador.