Reading File info into different textboxes...

[Chrissie]

Thanks...I've got it working now...

fnum = FreeFile
    FileName = frmInput.BestandVenster.FileName
    Open FileName For Input As #fnum
 
  
    Do Until EOF(1)
'    'Does this loop until End Of File(EOF) for file number 1.
 Line Input #fnum, data
        'Read one line and puts it into the varible Data.
        
        If Not data = "" Then
        elements = Split(data, "|")
        frmInput.Controls(elements(UBound(elements) - 1)).Text = elements(UBound(elements))
        End If
        '"frmInput."  &  elements(UBound(elements) - 1) & ".text" = elements(UBound(elements))
      'MsgBox EOF(1)
 Loop
 
Close #fnum
      
Exit Sub
       
ErrHandle:
    MsgBox "Error"
 
End Sub