Attribute VB_Name = "Module1"
Function IncludeFile(ByVal FileStr As String)
Dim ReturnStr As String
Dim TempStr As String
ReturnStr = ""

Open FileStr For Input As #1
    Do Until EOF(1)
        Line Input #1, TempStr
        ReturnStr = ReturnStr & TempStr & Chr(13) & Chr(10)
    Loop
Close #1

IncludeFile = ReturnStr
End Function