If Dir(sFileName) <> "" Then
                FileOpen(FileNum, Application.StartupPath & "\" & IGNORE_LIST_PATH, OpenMode.Input, OpenAccess.Read, OpenShare.Shared)
                Do While Not EOF(FileNum)
                    sInputLine = LineInput(FileNum)
                Loop
End If

Dim sFileName As String
Dim FileNum As Integer
Dim sInputLine As String
 
sFileName = "C:\Documents and Settings\<user>\Application Data\Apple Computer\Safari\bookmarks.plist"
FileNum = FreeFile()
If Dir(sFileName) <> "" Then
  Try
    FileOpen(FileNum, sFileName, OpenMode.Input, OpenAccess.Read, OpenShare.Shared)
  Catch ex As Exception
    ex = ex ' Breakpoint line
  End Try
  Do While Not EOF(FileNum)
    Try
      sInputLine = LineInput(FileNum)
    Catch ex As Exception
      ex = ex ' Breakpoint line
    End Try
  Loop
End If
 
' Second way
If My.Computer.FileSystem.FileExists(sFileName) Then
  sInputLine = My.Computer.FileSystem.ReadAllText(sFileName)
End If