[VB] Remover item seleccionado de una listbox

List1.AddItem "Pepe"

List1.AddItem List2.List(List2.ListIndex)

List1.RemoveItem List1.ListIndex

Public Sub Posicionar(pControlTipoLista As Object, ByVal pValor As Variant, Optional pSiNoEncuentraVacio As Boolean = False)
'pControlTipoLista = listbox o combobox
'pValor = valor buscado
'pSiNoEncuentraVacio = indica que hacer si no encuentra el item buscado
	
	Dim i As Integer
			
	If IsNumeric(pValor) Then
		'Buscamos por ItemData
		For i = 0 To pControlTipoLista.ListCount - 1
			If pControlTipoLista.ItemData(i) = pValor Then
				pControlTipoLista.ListIndex = i
				Exit Sub
			End If
		Next i
	
	Else
		'Buscamos por List
		For i = 0 To pControlTipoLista.ListCount - 1
			If pControlTipoLista.List(i) = pValor Then
				pControlTipoLista.ListIndex = i
				Exit Sub
			End If
		Next i
	End If
	
	'tenes que validar si no lo encuentra
	If pSiNoEncuentraVacio Then
		pControlTipoLista.ListIndex = -1
	End If
End Sub