Private Sub List0_BeforeUpdate(Cancel As Integer)
Dim i, s

    With Me.List0
    s = s + 1
    For i = 1 To .ListCount - 1
        If .Selected(i) Then
            
            s = s & "," & .Column(0, i)
            
        End If
    Next
    End With
    Me.txtkod = Mid(s, 2)
End Sub