Заранее извиняюсь, непосредственно программированием в VBA не занимаюсь, так что сори за ламерский вопрос.
Благодарю
Do Until EOF(#1)
LineInput #1, strString
strText=strText & strString
Loop
Close