чтение из фаила

Private Sub cbStart_Click()
 
cdCommonDialog.ShowOpen
 
strFileName = cdCommonDialog.FileName
 
nFreeFile = FreeFile
 
If strFileName <> "" Then
 
Open strFileName For Input As nFreeFile
 
nFileLenght = FileLen(strFileName)
strFileContent = Input(nFileLenght, #nFreeFile)
 
 
Close
 
End If
 
Open strFileName For Input As #1
Do While Not EOF(1)
For j = 0 To 30
Line Input #1, strFileContent
Text2(j).Text = strFileContent
Text3(j).Text = strFileContent
Next
Loop
Close #1
End Sub

Private Sub cbStart_Click()
Dim cout As Long, strFileContent As String
cdCommonDialog.ShowOpen
strFileName = cdCommonDialog.FileName
nFreeFile = FreeFile
If strFileName <> "" Then
End If
Open strFileName For Input As nFreeFile
Do While Not EOF(nFreeFile)
    Line Input #nFreeFile, strFileContent
    If cout <= 30 Then
        Text2.Text = Text2.Text & strFileContent & vbCrLf
    Else
        Text3.Text = Text3.Text & strFileContent & vbCrLf
    End If
    cout = cout + 1
Loop
Close nFreeFile
End Sub

...
Dim i&
Do While Not EOF(nFreeFile)
    Line Input #nFreeFile, strFileContent
    Select Case i
    Case 0 To 30:   Text2(i).Text = strFileContent
    Case 31
    Case 32 To 62:   Text3(i - 32).Text = strFileContent
    Case Else: Exit Do '
    End Select
    i = i + 1
Loop
...