[Iska]

Код:

Option Explicit

Sub SampleReading()
    Dim i As Long
    Dim strContent As String
    
    
    With CreateObject("Scripting.FileSystemObject")
        strContent = ""
        
        With .OpenTextFile("c:\Windows\win.ini")
            .SkipLine
            
            For i = 2 To 5
                strContent = strContent & .ReadLine() & vbCrLf
            Next
            
            MsgBox strContent
            
            .Close
        End With
    End With
End Sub

А зачем Вам?