Same Project, different approach, different result.

Dim FilePath As String = "C:\TmpTest\Place_Names.txt"
      Dim Strg As String
 
      If System.IO.File.Exists(FilePath) Then
         Dim oRead As New System.IO.StreamReader(FilePath)
         Do While objRead.Peek <> -1
            Strg = objRead.ReadLine
            ListBox1.Items.Add(Strg)
         Loop
         objRead.Close()
      Else
         MsgBox("Can't find file " & FilePath)
      End If

Dim FilePath As String = "C:\TmpTest\Place_Names.txt"
      Dim Strg As String
 
      If System.IO.File.Exists(FilePath) Then
         FileOpen(1, FilePath, OpenMode.Input)
         While Not EOF(1)
            Strg = LineInput(1)
            ListBox1.Items.Add(Strg)
         End While
         FileClose(1)
      Else
         MsgBox("Can't find file " & FilePath)
      End If