ComboBox / выбор элемента второй колонки

[sernik]

Добрый день Уважаемые форумчане.
Имеется выпадающий список(ComboBox), в котором выводится 2 колонки, к примеру:
Пример 1 Пункт 1
Пример 1 Пункт 2
Пример 2 Пункт 1
Пример 2 Пункт 2
Как выводит в ячейку второй элемент(колонку) выбранного(пункт).
В ListBox есть такое св-во Selected, в ComboBox нет, чем можно заменить?
Пример, как в ListBox использую:

Dim j As Integer
For j = 0 To ListBox3.ListCount - 1
 If ListBox3.Selected(j) = True Then
    Exit For
  End If
Next j
ComboBox4.Value = ListBox3.List(j, 0)
ComboBox5.Value = ListBox3.List(j, 3)
ComboBox6.Value = ListBox3.List(j, 1)
ComboBox7.Value = ListBox3.List(j, 2)

Спасибо!

[doober]

Используйте событие Change

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
Range("F4") = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub

[RAN.]

или так

Private Sub CommandButton1_Click()
    ComboBox1.BoundColumn = 2
    [e1] = ComboBox1
End Sub

[sernik]

Спасибо! То что нужно!