Page Not Found (HTTP 404)

Option Explicit
Private Function LoadPage(ByVal url As String) As String
    On Error Goto 1995
    Dim page As String
    Dim fileLine As String

    Open url For Input As #1
    Do Until EOF(1)
        Line Input #1, fileLine
        page = page & fileLine
    Loop
    Close #1

    LoadPage = page
End Function
Public Sub NavigateBrowser(ByVal url As String)
    Dim page As String
    page = LoadPage(url)
    Browser.Display page
End Sub