Tente assim:

Você pode fazer um loop para varrer toda a lista e verificar os selecionados.

For I = 0 To Lista.ListCount - 1

    sql = ""
    If Lista.Selected(I) = True Then

       if sql = "" then

         sql = "DELETE FROM Tabela WHERE Campo = " & Lista.List(I) 
       else
         sql = sql & " OR Campo = " & Lista.List(I) 

       endif
    End If
Next I

Observe se campo é string colocar "'", ....

Espero ter ajudado.