Private Sub ReadFile(fName As String)
    Dim FileNum As Integer
    Dim sData() As String
    DIm sLine As String
 
    FileNum = FreeFile
    On Error GoTo failRead
 
    Open fName For Input As #FileNum
    While Not EOF(FileNum)
      Line Input #FileNum, sLine
      sData = Split(sLine, "|")
 
      ' sData(0) = m_A
      ' sData(1) = m_B
      ' usw.
    Wend
 
failRead:
    Close #FileNum
    If (Err.Number <> 0) Then
      MsgBox Err.Description, vbMsgBoxHelpButton, "Fehler", Err.HelpFile, _
        Err.HelpContext
    End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de