Private Sub Command1_Click()
Dim re As String
Dim contenido As String
re = "y" & Chr(13) & "a" & Chr(13) & "todas"
Open "C:\file.txt" For Input As #1
While Not EOF(1) = [color=Red]True[/color]
  Line Input #1, contenido
  If UCase(contenido) <> "SOY" [color=Red]Then[/color]
  Open "C:\file2.txt" For Append As #2
      Print #2, contenido
    Close
  Else
    Open "C:\file2.txt" For Append As #2
      Print #2, re
      Print #2, contenido
    Close
  End If
Wend
Close
Kill "C:\file.txt"
Name "C:\file2.txt" As "C:\file.txt"
MsgBox "Listo"
End Sub