Tenho um Fomulário com Filtro automático no ListBox, quando clica no botão SELECIONAR, o item no ListBox é copiado e colado em outro Formulário, porém se nada for selecionado no ListBox e clicarem no Botão SELECIONAR, retorna um ERRO de Tempo de Execução.

Eu tentei colocar uma MsgBox pra caso cliquem em SELECIONAR antes de escolherem alguma opção do Filtro, mas não esta funcionando da forma que deveria.
Se eu selecionar alguma opção ou não no ListBox sempre esta aparecendo a MsgBox. Acredito que o mesmo esteja assumindo o critério de " " que foi definido.

Private Sub ATUALIZA_STK_LIST_Click()
If ListBox_LISTA.Text = "" Then
MsgBox "NENHUM ITEM SELECIONADO!", vbExclamation
Else
xPedido.TextBox_COD.Text = xSTK_List.ListBox_LISTA.List(ListBox_LISTA.ListIndex, 1)
Unload Me
End If

End Sub