Textdatei aufteilen

Dim avntValue As Variant        'Textdatei in Listbox1
    Dim ialngIndex As Long
    Dim sFile As String
    Dim strTemp As String
    Dim sDatei As String, sData As String
    Dim iZeile As Long, iSpalte As Integer
    Dim lz As Long
    sDatei = Trim$(Replace(Split(tblXML.Range("A1"), " für")(0), "'", ""))
    sDatei = Environ$("USERPROFILE") & "\Desktop\Songsammlung\" & sDatei & "_DATEN" & ".txt"
    Open sDatei For Input As #1
    With ListBox1
        Call .Clear
        Do Until EOF(1)
            Line Input #1, strTemp
            avntValue = Split(strTemp, vbTab)
            Call .AddItem
            For ialngIndex = LBound(avntValue) To UBound(avntValue)
                .List(.ListCount - 1, ialngIndex) = avntValue(ialngIndex)
            Next
        Loop
    End With
    Close #1