document.write('Public Function fileOpenFile(strFileName As String) As String
');
document.write('
');
document.write(' Dim intFreeFile As Integer, strInput As String
');
document.write(' Dim strTemp As String
');
document.write('
');
document.write(' intFreeFile% = FreeFile
');
document.write('
');
document.write(' Open strFileName$ For Input As #intFreeFile%
');
document.write('
');
document.write(' Do: DoEvents
');
document.write(' Line Input #intFreeFile%, strInput$
');
document.write(' strTemp$ = strTemp$ & strInput$ & vbCrLf
');
document.write(' Loop Until EOF(intFreeFile%)
');
document.write('
');
document.write(' Close #intFreeFile%
');
document.write('
');
document.write(' fileOpenFile = strTemp$
');
document.write('
');
document.write('End Function
');
document.write('
');