basically as the title says, however something undesirable is going on. I checked the text file and everything is in order, however when i run the loop (Following code) it puts the text into a list box fine, however the first line in the text file appears at the bottom of the listbox. Any ideas?


Code:
Public Sub FillListBox()

      Dim sFileText As String
      Dim iFileno As Integer
      Dim Ftitle As String
      Dim FMonth As String
      Dim FDay As String
      Dim EventDay As String
            
            
            FMonth = MonthName(Month(Now))
            FDay = DatePart("d", Now)
            EventDay = FMonth & "_" & FDay & ".txt"
   
      iFileno = FreeFile

        Open App.Path & "\logs\" & EventDay For Input As #iFileno
        While Not EOF(1)
          Line Input #1, sFileText
          Form1.List1.AddItem sFileText
        Wend
        Close #1

End Sub