Mine

    Public Function file_get_contents(ByVal filename)
        MsgBox("Asked to open " & filename)

        Dim filenumber As Integer
        Dim data As String
        filenumber = FreeFile()
        FileOpen(filenumber, filename, OpenMode.Input)
        FileGet(filenumber, data)
        FileClose(filenumber)
        append_to_debug("Read " & data.Length & " bytes from disk")
        Return data
    End Function