open "file.txt" for input as #1
 contenido =  input(lof(1),1)
close
Text1.text = Contenido

sw1=0:sw2=0:X=1
Dim Numeros(1 TO 10000)
for i=1 to len(text1.text)
   car = mid(text1.text,i,1)
   if car="=" and sw1=0 then
     numero = numero & car
     sw2=1
   end if
   if sw2=1 and car=" " then
     Numeros(X) = Numero
     X=X+1
     numero=""
     sw1=0:sw2=0
   end if
next

Private Sub Form_Load()
Dim file_data$
Open "C:\Archivo.txt" For Append As #1
While Not EOF(1)
 Print #1, file_data$
 Text1.text=Text1.text & file_data$ & vbNewLine
Wend
End Sub

re = "y" & vbnewline & "a" & vbnewline & "todas"
open "file.txt" for input as #1
 while not eof(1)
  line input #1, contenido
  if ucase(contenido) <> "SOY"
    open "file2.txt" for append as #2
      print #2, contenido
    close
  else
    open "file2.txt" for append as #2
      print #2, re
      print #2, contenido
    close
  end if
 wend
close
kill "file.txt"
name "file2.txt" as "file.txt"
msgbox "Listo"

sw1=0:sw2=0
open "archivo.txt" for input as #1
 line input #1, contenido
 for i=1 to len(contenido)
   car = mid(contenido,i,1)
   if car="=" and sw1=0 then
     numero = numero & car
     sw2=1
   end if
   if sw2=1 and car=" " then
     open "numeros.txt" for append as #2
       print #2, numero
     close
     numero=""
     sw1=0:sw2=0
     exit for
   end if
 next
close