[VB6.0] Open file

[xegallo]

Function ReadTextFile(filename As String) As String
    Dim fnum As Integer, isOpen As Boolean
    On Error GoTo Error_Handler
    fnum = FreeFile()
    Open filename For Input As #fnum
    isOpen = True
    ReadTextFile = Input(LOF(fnum), fnum)
    close #fnum
Error_Handler:

    If isOpen Then Close #fnum
    If Err Then Err.Raise Err.Number, , Err.Description
End Function