Visual Basic - ¿Cómo buscar un elemento en un ListBox?

Hola, necesito saber como buscar un elemento de forma automática que se encuentre en un ListBox para compararlo, para saber si ya fue incluido en en ListBox o no.

Gracias anticipado.

Hola

bueno hize este ejemplito para que veas como se puede buscar en un ListBox
Coloca en tu form un List Un Text Un Command y el siguiente codigo:

Option Explicit

Private Sub Command1_Click()
Dim X As Integer
For X = 0 To List1.ListCount - 1
List1.ListIndex = X
If List1 = Text1 Then
MsgBox "Pais encontrado"
Exit Sub
End If
Next
MsgBox "No se encontrado el pais"
End Sub

Private Sub Form_Load()
List1.AddItem "Colombia"
List1.AddItem "Argentina"
List1.AddItem "Peru"
List1.AddItem "Bolivia"
List1.AddItem "Venezuela"
List1.AddItem "Brazil"
End Sub

Ejecutalo y escribe en el Text el pais que quieres buscar ten en cuenta que deben coincidir Mayusculas y minusculas

Espero esto sea lo que nesecites
Saludos
www.theemulator.tk Emuladores y Roms

Efectivamente era lo que buscaba y funcionó a la perfección, Gracias por tu ayuda Cristian....

También lo pudes hacer de esta manera

Private Sub Command1_Click()
Dim X As Integer
For X = 0 To List1.ListCount - 1
If List1.List(X) = Text1 Then
MsgBox "Pais encontrado"
Exit Sub
End If
Next
MsgBox "No se encontrado el pais"
End Sub
y así no vas a ver que el foco se pasea por el control mientras se hace la búsqueda.

Saludos
Greco.

Agradezco tu ayuda con ese detalle. Saludos igualmente.

en un texbox1_keydown
ingresa el siguiente codigo

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim X As Integer
If KeyCode = 13 Then
For X = 0 To Me.ListBox1.ListCount - 1
If (ListBox1.List(X, 0) Like "*" & (TextBox1.Value & "*")) Then
MsgBox "EL OBJETO YA ESTA CARGADO" ' aqui buscara lo que desees
End If
Next X
End If
End Sub


'OTRA FORMA DE PLANTEARLO...

'---------------------EL SIG CODIGO TE BORRA LOS ELEMENTOS DISTINTOS PARA SOLO DEJARTE LOS QUE BUSCAS-------
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim X As Integer
If TextBox1.Text <> "" Then
If KeyCode = 13 Then
For X = Me.ListBox1.ListCount - 1 To 0 Step -1
If (ListBox1.List(X, 0) Like "*" & (TextBox1.Value & "*")) Then

Else
ListBox1.RemoveItem (X)
End If
Next X
End If
END IF