Получение данных из текстового файла

[maksim_serg]

Здравствуйте
А как получить в excel данные из текстового файла(*.txt):
1. Только определенную строку ( скажем №25);
2. все строки записать в массив, где одно значение - одна строка (array("строка 1", "строка 2", "строка 3", ... , "строка N"))

[EducatedFool]

Sub test()
    ПутьКФайлу = "R:\Excel macros.txt"
    СодержимоеФайла = ReadTXTfile(ПутьКФайлу)
    МассивСоСтроками = Split(СодержимоеФайла, vbNewLine)
    MsgBox "Всего строк в текстовом файле: " & UBound(МассивСоСтроками) + 1
    MsgBox МассивСоСтроками(24), vbInformation, "Строка 25"
End Sub

Function ReadTXTfile(ByVal filename As String) As String
    On Error Resume Next
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Function

[maksim_serg]

с первы вариантом все понятно им и буду пользоваться. А можно по подробнее об функции, как её потом применить что б получить данные?

[maksim_serg]

Дошло. одно без другого вообще не работае