boa tarde estou usando o codigo abaixo para excluir linha da listbox, mas ao clicar na linha apareçe mensagem
erro em tempo de execução '-2147467259 (80004005)': despois fica selecionando a linha ListBox1.RemoveItem (ListBox1.ListIndex)
poderiam me ajudar achar esse erro?

obrigado

Dim resp As Integer
resp = MsgBox("Excluir?", vbYesNo, "Excluir")
If resp = vbYes Then
ListBox1.RemoveItem (ListBox1.ListIndex)
Exit Sub
End If
If resp = vbNo Then
Exit Sub
End If