Visual Basic - Como borro datos en modo multiselect de listbox

Hola compañeros , tengo un problemilla y es que no se como puedo borrar un grupo de datos de una listbox habiendo antes activado la opción multiselect para seleccionar varios elementos a la vez , ¿como puedo borrar ese grupo de elementos? .
Se borrar uno por uno , pero más de un dato no tengo ni idea .
Alguien me podría ayudar , muchas gracias

Ok, prueba con esto:
Private Sub cmdBorrar_Click()
Dim I As Integer
On Error GoTo Errores

For I = 0 To List1.ListCount - 1
If List1.Selected(I) = True Then
List1.RemoveItem I
List1.Refresh
I = I - 1
End If
Next I
Exit Sub
Errores:
Err.Clear
End Sub

Muchisimas gracias Miguel por fiiin se hacer como hacer dicha tarea , muchiiiiiisimas gracias .

SAludoooos

Buenas tardes: aún con el código que han puesto me sigue pasando lo mismo... me borra sólo el primer elemento... Por favor, alguien puede ayudarme. Este es mi codigo:
Esto es para obtener los items seleccionados para determinada accion
Private Sub agregaContacto_Click()
Dim oItem As Variant
Dim iCount As Integer
Dim I As Integer
'método para agregar los contactos seleccionados de la lista
iCount = 0
idesContactos = ""
If Me.lContacto.ItemsSelected.Count <> 0 Then
For Each oItem In Me.lContacto.ItemsSelected
If iCount = 0 Then
idesContactos = idesContactos & Me.lContacto.ItemData(oItem)
iCount = iCount + 1
Else
idesContactos = idesContactos & "," & Me.lContacto.ItemData(oItem)
iCount = iCount + 1
End If
Next oItem
Else
MsgBox "No ha seleccionado ningún elemento de contactos", vbInformation, "CR-Contactos"
Exit Sub
End If

Call seleccionar(idesContactos)
Call eliminaElementos(Me.lContacto)
End Sub

Y este es el codigo de eliminar..
Private Sub eliminaElementos(valor As ListBox)
Dim I As Integer
On Error GoTo Errores

For I = 0 To valor.ListCount - 1
If valor.Selected(I) = True Then
MsgBox valor.ItemData(I)
valor.RemoveItem I
valor.Requery
I = I - 1
End If
Next I
Exit Sub
Errores:
Err.clear
End Sub

Muchas gracias