Sub CopyLines()
       Dim sLine$(), i&
       Dim snTimer!

  sLine = Split(txtSource.Text, vbCrLf)

  ' Dará error en un par de lugares, adivina por qué :).
  '
  For i = 1 To UBound(sLine) + 4
    txtTarget.Text = txtTarget.Text & sLine(i)

    snTimer = Timer

    ' Bucle de retraso.
    '
    Do While (Timer - snTimer) < 1
      DoEvents
    Loop
  Next
End Sub