title: VBA loop with InStr for a .txt file
body: <p>I have problems trying to import info from a <code>.txt file</code>. I have this data inside the file:</p>
  
  <pre><code>EMPRESA : TRANSENER S.A.                
  ---- NODO --------------------         INYECCION
  Descripción                     VNom       (MW)
  ALICURA     500        2         500      251.8
  ---- LINEAS ------------------         PARTIC  CHPOTik  REMUNERACION
  Descripción                     VNom      (%)    ($/H)  MENSUAL  ($)
  ACABRAL-R.OESTE 500.0            500     0.15     5.24       3775.62
  ALMAFUE.-ACABRAL 500.0           500     0.15     1.85       1335.12
  ------------------------------
  ---- NODO --------------------         INYECCION
  Descripción                     VNom       (MW)
  SANTO TOME  500  2               500      101.2
  ---- LINEAS ------------------         PARTIC  CHPOTik  REMUNERACION
  Descripción                     VNom      (%)    ($/H)  MENSUAL  ($)
  ALMAFUE.-EMBALSE-500-1           500     0.15     0.25        179.54
  CHACO500-RESISTEN 500.0          500     0.10     0.17        124.02
  ------------------------------
  ---- NODO --------------------         INYECCION
  Descripción                     VNom       (MW)
  ALMAFUERTE    1.0     3            1       -9.5
  ---- LINEAS ------------------         PARTIC  CHPOTik  REMUNERACION
  Descripción                     VNom      (%)    ($/H)  MENSUAL  ($)
  ALMAFUE.-EMBALSE-500-1           500     0.15     0.25        179.54
  CHACO500-RESISTEN 500.0          500     0.10     0.17        124.02
  </code></pre>
  
  <p>I want to extract for any BUS (NODO) the information: </p>
  
  <pre><code>Name                             Vnom    ( MW ) 
  ALICURA     500        2         500      251.8 
  SANTO TOME  500  2               500      101.2
  ALMAFUERTE    1.0     3            1       -9.5
  </code></pre>
  
  <p>I make this code, but only works with the first one:</p>
  
  <pre><code>Private Sub BarrasIny_Click()
      Dim myFile As String
      Dim text As String
      Dim quote As String
      Dim textline As String
  
      myFile = "C:\Users\tvelis\Desktop\CFCT_por_barra2.txt"
  
      Open myFile For Input As #1
          Do Until EOF(1)
              Line Input #1, textline
              text = text &amp; textline
          Loop
      Close #1
  
      quote = InStr(text, "---- NODO")
      Range("A1").Value = "Barra"
      Range("B1").Value = "Tension"
      Range("c1").Value = "MW"
  
      Range("A2").Value = Mid(text, quote + 103, 30)
      Range("B2").Value = Mid(text, quote + 136, 3)
      Range("C2").Value = Mid(text, quote + 145, 5)
  End Sub
  </code></pre>
  
  <p>How can I do to make a Loop and extract the information from any bus(NODO)?</p>