title: How to extend the area a VBA script imports from a csv file?
body: <p>I have to edit a VBA script I did not write myself.
  That's why I do not really know what to do (and I tried a lot).</p>
  
  <p>The code:</p>
  
  <pre><code>Sub Datei_Auslesen_Modul1()
  On Error GoTo errorhandler
  Dim fso As Object, Dat As Object, i As Long, Blatt As Byte
    Dim txt As String, x As Integer, y As Byte, alt As Integer
    Dim Pfad_Maxforce As String
    Application.ScreenUpdating = False
    Set fso = CreateObject("Scripting.FileSystemObject")
    Pfad_Maxforce = InputBox("Bitte Pfad zum maxforce_Archiv (SICHERUNGEN) angeben.", "Maxforce_MT_FINAL_SIcherungen", "E:\05_Messungen\02_Skripte\07_Versuchsauswertung\01_Maximalkraftauslesen\maxforce_MT_FINAL_Sicherungen\")
  
    Set Dat = fso.OpenTextFile(Pfad_Maxforce &amp; Sheets("Daten_gesammelt").Range("k9"), 1, False) 'Dateiname aus Zelle g8 in Blatt
  
    i = 0
    Do While Dat.AtEndOfStream &lt;&gt; True
      ' Tabellenblatt ermitteln
      Blatt = (i \ 65536) + 1   
      txt = Dat.ReadLine
      alt = 0
      y = 0
      For x = 1 To Len(txt)
        If Mid(txt, x, 1) = ";" Then
        Worksheets("max_force_auslesen_Modul1").Cells((i Mod 65536) + 1, y + 1) = Mid(txt, alt + 1, x - alt - 1)
        alt = x
        y = y + 1
        End If
      Next x
      Worksheets(Blatt).Cells((i Mod 65536) + 1, y + 1) = Mid(txt, alt + 1, x - alt - 1)
      i = i + 1
    Loop
    Dat.Close
    Application.ScreenUpdating = True
    Exit Sub
  </code></pre>
  
  <p>The Problem is, the Script does not import tha last column of the csv file. Where do I have to change the parameters?
  Cheers.</p>