Чтение строк из файла и запись каждой в свой Label

Option Explicit
 
Private Type TRec
  ID As String
  StrSeek As Long
End Type
 
Private IsOpened As Boolean
Private FileDescr As Integer
Private CurPos As Long
Private IDTable() As TRec
Private IDCount As Long
 
Public Sub CloseRes()
  If IsOpened Then
    Close FileDescr
    IsOpened = False
  End If
End Sub
 
Public Function LoadResStr(sID As String, ParamArray vInsert() As Variant) As String
' находит строку с нужным идентификатором, и
' если были переданы дополнительные параметры, заменяет в найденой
' строке включения типа |1, |2 на соответствующие параметры
' для ускорения поиска предполагается, что идентификаторы отсортированы по алфавиту
 
  On Error GoTo errHand
  
  If sID = '' Then
    LoadResStr = ''
    Exit Function
  End If
  
  If Not IsOpened Then
    LoadResStr = ''
    Exit Function
  End If
  
  Dim ReadCont As String
  Dim bFound As Boolean
  Dim StartPos As Long
  
  If sID < IDTable(CurPos).ID Then CurPos = 0
  StartPos = CurPos
  bFound = False
  Do While CurPos < IDCount
    If sID = IDTable(CurPos).ID Then
      Seek FileDescr, IDTable(CurPos).StrSeek
      Line Input #FileDescr, ReadCont
      bFound = True
      Exit Do
    End If
    CurPos = CurPos + 1
  Loop
  
  If Not bFound Then
    CurPos = 0
    Do While CurPos < StartPos
      If sID = IDTable(CurPos).ID Then
        Seek FileDescr, IDTable(CurPos).StrSeek
        Line Input #FileDescr, ReadCont
        bFound = True
        Exit Do
      End If
      CurPos = CurPos + 1
    Loop
  End If
  
  If bFound Then
    Dim sArgIndex As String
    Dim iArgIndex As Integer
    Dim PrevPos As Integer
    Dim FindPos As Integer
    Dim sOut As String
    
    PrevPos = 1
    FindPos = InStr(PrevPos, ReadCont, '|')
    While FindPos <> 0
      sOut = sOut & Mid(ReadCont, PrevPos, FindPos - PrevPos)
      sArgIndex = Mid(ReadCont, FindPos + 1, 1)
      If IsNumeric(sArgIndex) Then
        iArgIndex = CInt(sArgIndex) - 1
        If iArgIndex >= LBound(vInsert) And iArgIndex <= UBound(vInsert) Then _
            sOut = sOut & vInsert(iArgIndex)
        PrevPos = FindPos + 2
      ElseIf sArgIndex = '|' Then
        sOut = sOut & '|'
        PrevPos = FindPos + 2
      Else
        PrevPos = FindPos + 1
      End If
      
      FindPos = InStr(PrevPos, ReadCont, '|')
    Wend
    LoadResStr = sOut & Mid(ReadCont, PrevPos)
    
  Else  ' string not found
    LoadResStr = sID
  End If
  
  Exit Function
errHand:
  ShowErrorMessage
  Exit Function
  
End Function
 
 
Public Function OpenRes(sFileName As String) As Boolean
 
  On Error GoTo errHand
  CloseRes
  FileDescr = FreeFile()
  Open sFileName For Input Access Read As FileDescr
  IsOpened = True
  
  Dim ReadID As String
  Dim ReadCont As String
  Dim CurPos As Long
  
  Line Input #FileDescr, ReadCont ' пропустить первую строку - название языка
  'сначала просто подсчитаем количество строк
  IDCount = 0
  Do Until EOF(FileDescr)
    Line Input #FileDescr, ReadCont
    IDCount = IDCount + 1
  Loop
  ReDim IDTable(IDCount - 1) As TRec
  Seek FileDescr, 1
  Line Input #FileDescr, ReadCont
  
  Dim i As Long
  For i = 0 To IDCount - 1
    Input #FileDescr, IDTable(i).ID
    IDTable(i).StrSeek = Seek(FileDescr)
    Line Input #FileDescr, ReadCont
  Next
  
  OpenRes = True
  
  Exit Function
errHand:
  If Err.Number =

dim Line as string
open 'c:    est.txt' for input as #1
  line input #1, line
  label1 = line
  line input #1, line
  label2 = line
  line input #1, line
  label3 = line
  line input #1, line
  label4 = line
  line input #1, line
  label5 = line
  line input #1, line
  label6 = line
close #1

dim Line as string, i as integer
for i = 0 to 5
  line input #1, line
  label(i).caption = line
next