Linije loadujes u niz stringova i posle radis sa nizom
Code:
Private Sub Form_Load()
Dim oFSO As Scripting.FileSystemObject
Dim oTextStream As Scripting.TextStream
Dim arrLines() As String
Dim NumLines As Long
Dim i As Long
NumLines = 0
Set oFSO = New Scripting.FileSystemObject
Set oTextStream = oFSO.OpenTextFile("C:\test.txt", _
ForReading, _
True, _
TristateFalse)
While Not oTextStream.AtEndOfStream
NumLines = NumLines + 1
ReDim Preserve arrLines(NumLines)
arrLines(NumLines) = oTextStream.ReadLine
Wend
oTextStream.Close
Set oTextStream = Nothing
Set oFSO = Nothing
If NumLines >= 1 Then Text1.Text = arrLines(1)
If NumLines >= 2 Then Text2.Text = arrLines(2)
For i = 3 To NumLines
Text3.Text = Text3.Text & arrLines(i) & vbCrLf
Next
End Sub