Dim cRow As DataRow
Dim _dtKenn As New DataTable
...
For Each cRow In _dtKenn.Select("", "Kennzei")
   UserArray.Add(cRow)
Next
...
kennz = UserArray(i)("KENNZEI").ToString.Trim 'geht nun nicht mehr

Private Function ContainerHeader()    ' As ???
        If isCancel Then Exit Function
        _lb.Text = "Schreibe ContainerHeader ..."
        Application.DoEvents()
        defDir = lw & "ML;"
        selCmd = "Select * From SOFTDAT"
        Dim _dtSoft As New DataTable
        _dtSoft = conn.GetTable(defDir, selCmd)
        write("X8000", "con0")
        write("X9103", Date.Now.ToString("ddMMyyyy"))
        write("X9106", "3")
        write("X9132", "1")
End Function