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

Private Sub cmdReemplazar_Click()
           Dim sData$

  sData = txtFuente.Text  ' Datos que se quieren modificar.
  sData = Replace$(sData, "a", "%$")
  sData = Replace$(sData, "s", "&/")
  sData = Replace$(sData, "t", "=")

  txtNuevoTexto.Text = sData
End Sub