If List1.ListCount > 0 Then
        Dim I As Integer
        Dim sList As String
 
        With List1
            For I = 0 To .ListCount - 1
            sList = sList & .List(I) & vbCrLf
            Next I
        End With
 
        auto.browser.Document.Forms(0).identcodes.Value = sList
        auto.browser.Document.All(102).Click
    End If

Blumen sind die sch?nste Sprache der Welt!
Visual Basic ist die aller sch?nste