Удалить данные с листбокса

[yuresku]

Добрый день.
На форме есть листбокс.
Выбираем организацию и удаляем. Все работает.
Как подкорректировать код ,что бы в сообщении был указаны данные об организации
Например. : Вы действительно хотите удалить Организацию3 из списка?
Спасибо.

[vefer]

Private Sub CommandButton1_Click()
Dim i As Integer, iRow As Long
iRow = ListBox1.List(ListBox1.ListIndex, 0)
org_ = Sheets("справка").Cells(iRow, 2)
a = MsgBox("Вы действительно хотите удалить организацию: " & org_ & "?", vbYesNo)

    If a = vbNo Then Exit Sub
    For i = 0 To Me.ListBox1.ListCount
        If ListBox1.Selected(i) = True Then
            iRow = ListBox1.List(ListBox1.ListIndex, 0)
            ListBox1.RemoveItem i
            Exit For
        End If
    Next
    With Sheets("справка")
        Range(.Cells(iRow, 2), .Cells(iRow, 4)).ClearContents
    End With
End Sub

[IgorGO]

как-то так:

Private Sub CommandButton1_Click()
Dim i As Integer, iRow As Long
  If ListBox1.ListIndex < 0 Then Exit Sub
  a = MsgBox(ListBox1.List(ListBox1.ListIndex, 1), vbYesNo, "ВНИМАНИЕ!!! Удалить из списка?")
  If a = vbNo Then Exit Sub
  Sheets("справка").Rows(ListBox1.ListIndex + 2).Delete
  ListBox1.RemoveItem ListBox1.ListIndex
End Sub

[yuresku]

IgorGO,vefer спасибо буду разбираться.