VB: Open Read File

Public Function ReadFile(File2Open As String) As String

'Variable Declaration
Dim fLen As Integer
Dim tmp As String
Dim val As String

'Get the free file number
fLen = FreeFile

'Open Specified declared in File2Open Variable
Open File2Open For Input As #fLen
        
        Do ' Start of "DO" Loop
                Line Input #fLen, tmp ' Read the line in a file and store it in TMP Variable
                val = val & vbCrLf & tmp ' Store the readed line in the Val variable
        Loop Until EOF(fLen) 'End Loop until Eof file is True

Close #fLen ' Close the opened file

ReadFile = val ' pass value

End Function