I just plain missed it.
Thanks.
Jim Cone



"RB Smissaert"
wrote in message
Function OpenTextFileToString(strFile As String) As String
Dim hFile As Long
hFile = FreeFile
Open strFile For Input As #hFile
OpenTextFileToString = Input$(LOF(hFile), hFile)
Close #hFile
End Function

As mentioned in the first reply.
RBS