<code lang="vb">Public Function fileOpenFile(strFileName As String) As String

    Dim intFreeFile As Integer, strInput As String
    Dim strTemp As String
    
    intFreeFile% = FreeFile
    
    Open strFileName$ For Input As #intFreeFile%
        
        Do: DoEvents
            Line Input #intFreeFile%, strInput$
            strTemp$ = strTemp$ & strInput$ & vbCrLf
        Loop Until EOF(intFreeFile%)
        
    Close #intFreeFile%
    
    fileOpenFile = strTemp$

End Function</code>