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