Visual Basic - ayuda con un listbox

buenas amigos acudo a ustedes para ver si me pueden decir como buscar un item en un listbox por favor cualquier ayuda es bien recibida gracias

te paso un ejemplo, 1 list1,1text1,1 commnad1
--------------
Private Sub Command1_Click()
'buscamos el texto
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text = Text1 Then Exit For
Next
If List1.Text <> Text1 Then MsgBox "No encontrado": List1.Selected(List1.ListIndex) = False
End Sub

Private Sub Form_Load()
'Agregamos elementos al listado
For i = 1 To 12
List1.AddItem MonthName(i)
Next

End Sub
---------------