Private Sub Command1_Click()
Dim x() As String, i As Integer, temp As New Collection
On Error Resume Next
x = Split(Text1, vbCrLf)
For i = 0 To UBound(x)
temp.Add x(i), x(i)
Next
ReDim x(1 To temp.Count)
For i = 1 To temp.Count
x(i) = temp(i)
Next
Text2.Text = Join(x, vbCrLf)
End Sub