Lİstbox dblclick olayında listbox da veri yoksa

[kemal turan]

Merhaba,
Aşağıdaki dblclick olayında eğer listbox da hiç veri yok ise exit sub olsun istiyorum.
If ListBox1.List(ListBox1.ListIndex, 2) = "" Then Exit sub
Bu satır hata veriyor. Yardımlarınız için teşekkürler.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.List(ListBox1.ListIndex, 2) = "" Then Exit sub
PERTAHSILAT.TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 2)
PERTAHSILAT.TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 3)
PERTAHSILAT.TextBox11.Value = ListBox1.List(ListBox1.ListIndex, 4)
PERTAHSILAT.TextBox22.Value = ListBox1.List(ListBox1.ListIndex, 8)
PERTAHSILAT.TextBox23.Value = ListBox1.List(ListBox1.ListIndex, 0)
PERTAHSILAT.Show
End Sub

 

[ÖmerFaruk]

If ListBox1.ListCount = 0 Then Exit Sub

 

[kemal turan]

Çok teşekkür ederim.
Selametle kalınız.