Bom dia,

Tente assim:

If ListView1.ListItems.Count = 0 Then
MsgBox "Selecione o produto a ser excluido"
Exit Sub
End If

Guima,

Essa rotina que sugeriu verifica se há itens adicionados na Listview, ma não o que eu preciso: Que seja verificado se há algum item selecionado.

leandro, não sei como está preenchendo o ListView, mas quando o preenchemos, por padrão fica o primeiro item como selecionado, então na rotina que preenche, ao final da mesma voce tem de definir a propriedade dos itens como não selecionados, acrescente a linha abaixo na rotina que preenche o ListView, se tivesse colocado a rotina eu diria o local certo, mas a principio é logo apos terminar de carregar o listview.

'Define Itens como não Selecionados
Set ListView1.SelectedItem = Nothing

E para o Botão utilize :

Private Sub CommandButton4_Click()

    Dim oList As Object
    Dim j
        
        Set oList = ListView1.SelectedItem
        
        If oList Is Nothing Then
            MsgBox "É preciso selecionar um item válido na lista"
       
        Else
            
            MsgBox ListView1.SelectedItem.Text
            MsgBox ListView1.SelectedItem.ListSubItems.item(1).Text
                
          'Define Itnes como não Selecionados
          Set ListView1.SelectedItem = Nothing
            
        End If

End Sub