title: VBScript Do Until Loop Keeps Skipping The First Line
body: <p>my Do Until Loop keeps skipping the first line of my text file.  I have moved the ReadLine function out of the loop and it still skips the first line.  Can somebody please help me with this?  The first line is not a header and I need to read it.</p>
  <pre><code>Sub subRunLoop
    i = 1
    CountButtonClicks = 0
    CountLoans = 0
    CountSysErrors = 0
    SuccessfulEntries = 0
  
  
    StartTime = Timer()
    strLine = objFile.ReadLine
    Do Until objFile.AtEndOfStream
              
              arrFields = Split(strLine,&quot;,&quot;)
              Number  = arrFields(0)
              subDoWork (i)                   
      
      i = i + 1
      Count = Count + 1
      
      If objFile.AtEndOfStream Then
          subWriteScriptInformation
          subWriteToScriptTracker
          subEndScript
      End If      
      Loop
  End Sub
  </code></pre>