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