Private Sub ReadFile(fName As String)
    Dim FileNum As Integer
    Dim m_A As String
    Dim m_B As String
    Dim m_C As String
    Dim m_D As String
    Dim m_E As String
    Dim m_F As String
    Dim m_G As String
    Dim m_H As String
    Dim m_I As String
    Dim m_J As String
    Dim m_K As String
    Dim m_L As String
    Dim m_M As String
 
        FileNum = FreeFile
 
        On Error GoTo failRead
 
        Open fName For Input As #FileNum
 
        While Not EOF(FileNum)
            Input #FileNum, m_A, m_B, m_C, m_D, m_E, m_F, m_G, m_H, m_I, m_J, _
              m_K, m_L, m_M        'read data from file
        Wend
failRead:
        If (Err.Number <> 0) Then
            MsgBox Err.Description, vbMsgBoxHelpButton, "Fehler", Err.HelpFile, _
              Err.HelpContext
        End If
 
        Close #FileNum
 
End Sub