F = FreeFile
    vDatei = app.Path & "\characteristics.csv"
    Open vDatei For Input As F
        Do While Not EOF(F)
            vSpalte = 2
            Line Input #F, TextZeile
                vZeile = vZeile + 1
                sArray() = Split(TextZeile, "|")
                MsgBox (TextZeile)
                For i = LBound(sArray) To UBound(sArray)
 
                    objDaten.Cells(Replace(sArray(0), "~", ""), vSpalte).Value _
                      = Replace(sArray(i), "~", "")
                    objDaten.Cells(Replace(sArray(0), "~", ""), "A").Value = _
                    vSpalte - 4
                    vSpalte = vSpalte + 1
 
                Next i
        Loop
    Close F