k = 1
    While k <= n 'n ist die Anzahl der str die ich einlesen will
        Dim h As String
        h = fcDatenausStrg(strKunde, k) ' fcDatenausStrg hab ich selbst 
        ' gemacht, liest aus einer str Kette die einzelnen Glieder aus, habs 
        ' aber auch schon mit h = "Test" probiert.
        Liste.AddItem Item:=h ' hab auch schon probiert, h weg zu lassen und 
        ' gleich Item:= "Test" zu schreiben. Außerdem hab ich schon 
        ' Liste.AddItem "Test" und List.AddItem("Test") versucht
 
        k = k + 1
    Wend