Visual Basic - busqueda

amogos necesito ayuda les cuento lo que necesito que em ayuden toy haciendo un modulo buscar si yo busco x unidad, al encotrarlo me aparesca en un mshflexgrid los pedidos que hiso esta unidad, por ejemplo si la unidad informatica pidio 3 veces lapices me apresca en mshflexgrid

si me pueden ayuda se los agradeceria

hola Alex, esto lo hice para buscar en un list1 pero la idea es que veas su funcionamiento necesitas 4 botones y dos listbox, y un text1
si deseas el codigo con los botones,listbox, etc... mi mail es
[email protected]
desde luego que la salida la puedes sacar en un mshflexgrid

rem boton(command1)
Private Sub Command1_Click()
Const a = "01/01/2000"
If text1.Text = "" Then MsgBox "Escribe el nombre por favor", 32, "Mensaje": text1.SetFocus: Exit Sub
For i = 0 To List1.ListCount - 1
If (InStr(List1.List(i), text1) <> 0) Or (InStr(List1.List(i), a) <> 0) Then List1.RemoveItem (i)
Refresh
Next
End Sub

rem boton (command2)
Rem recargar los registros
Private Sub Command2_Click()
List1.Clear
List1.AddItem "karen 21/1/2009"
List1.AddItem "caro 15/2/2009"
List1.AddItem "karen 1/1/2000"
List1.AddItem "ruben 5/3/2009"
List1.AddItem "karen 10/2/2009"
List1.AddItem "caro 15/11/2009"
List1.AddItem "ruben 1/1/2000"
List1.AddItem "martha 23/5/2009"
End Sub

rem boton command3
Rem buscar los repetidos y los que tengan la fecha
Private Sub Command3_Click()
List2.Clear
Const a = "01/01/2000"
For i = 0 To List1.ListCount - 1
If (InStr(List1.List(i), text1) <> 0) Then
List2.AddItem List1.List(i)
Refresh
End If
Next
End Sub

boton (boton command4)
Private Sub Command4_Click()
List2.Clear
End Sub