Private Sub СписокИстМ_Click()
   Dim varNdx, flag
   flag = True
   СписокИнд.RowSource = ""
   СписокЗнач.RowSource = ""
   For Each varNdx In СписокИстМ.ItemsSelected
    If flag Then
     СписокИнд.RowSource = varNdx
     СписокЗнач.RowSource = СписокИстМ.Column(1, varNdx)
     flag = False
    Else
     СписокИнд.RowSource = СписокИнд.RowSource & ";" & varNdx
     СписокЗнач.RowSource = СписокЗнач.RowSource & ";" & СписокИстМ.Column(1, varNdx)
    End If
   Next varNdx
 End Sub