Option Explicit

Private Sub Command1_Click()
    Dim i As Integer
    Dim sLinks() As String
    Dim sResult As String
    
    sLinks = Split(Text1.Text, vbCrLf)
    
    For i = 0 To UBound(sLinks)
        If Len(sLinks(i)) Then
        sResult = sResult & "<Script>code(" & Chr$(34) & Format(i + 1, "000") & Chr$(34) & "," & _
                    Chr$(34) & sLinks(i) & Chr$(34) & ");</script>" & vbCrLf
        End If
    Next
    Text2.Text = sResult
End Sub

Private Sub Command2_Click()
    Text2.Text = vbNullString
End Sub

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