Считывание данных из файла в переменную - VB

Формулировка задачи:

Всем привет! Подскажите, пожалуйста, как считать данные из файла в переменную. Вот так записываю в файл:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Zapis_v_fail()
 Dim i As Integer, j As Integer, k As Integer
 Dim intFH As Integer
 intFH = FreeFile
 Open Str(Date) + ".txt" For Output As intFH
     For i = 1 To mProg
       For j = 1 To mSHag
        For k = 1 To kLamp
          Print #intFH, (i); (j); (k); Tab; sSvet(i, j, k)
         Next k
       Next j
     Next i
  Close #intFH
 End Sub

Получается текстовый файл такого типа типа: 1 1 1 true 1 1 2 true 1 1 3 false ......... И так далее. Как мне теперь записать данные из файла в булеву переменную sSvet(i, j, k):

                    Листинг программы
                
 
                        
                          
                    
 Private Sub Chtenie_iz_faila()
 Dim i As Integer
 Dim intFH As Integer
 intFH = FreeFile
  Open Str(Date) + ".txt" For Input As intFH
     For i = 1 To mProg
       For j = 1 To mSHag
        For k = 1 To kLamp
 '________________________________________________
           ' Do Until EOF(intFH)
             ' Line Input #intFH, strString
             'strText = strText & strString & vbLf
             'sSvet(i, j, k) =?????????????
           'Loop
'________________________________________________
 
       Next j
     Next i
    Close #intFH
   ' Print sSvet(1, 1, 2)
 End Sub

Решение задачи: «Считывание данных из файла в переменную»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Do Until EOF(intFH)
    Line Input #intFH, strString
    t1 = InStr(1, strString, " ")
    t2 = InStr(t1, strString, " ")
    t3 = InStr(t2, strString, " ")
    If t1 * t2 * t3 > 0 Then
        i = CInt(Mid(strString, 1, t1 - 1))
        j = CInt(Mid(strString, t1 + 1, t2 - t1 - 1))
        k = CInt(Mid(strString, t2 + 1, t3 - t2 - 1))
        If Mid(strString, t3 + 1, 4) = "true" Then
            sSvet(i, j, k) = True
        Else
            sSvet(i, j, k) = False
        End If
    Else
        'ошибка в прочитанных данных
    End If
Loop