ник: ial52
Спасибо Explorer!
Все гораздо проще-уже определился. Вот такое вот решение
Public Function File2Str(sPath As String) As String
Dim txt As String, sLine As String, fn As Long
fn = FreeFile
Open sPath For Input As fn
Do While Not EOF(1)
Line Input #fn, sLine
txt = IIf(Len(txt) > 0, txt & vbCrLf, "") & sLine
Loop
Close fn
File2Str = txt
End Function