Форум по VBA и MS Office

Подскажите как узнать количество добавленных в листбокс строк и текст выбранной строки?

Private Sub CommandButton1_Click()
    '1. Кол-во строк в листбоксе.
    MsgBox Me.ListBox1.ListCount
    '2. Текст выбранной строки.
    MsgBox Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
End Sub