¿Buscador en Visual Basic de una Tabla Excel?

Hola!
Estoy intentando hacer una aplicación en VB6. El tema es realizar un buscador en un textbox y que devuelva el resultado de las columnas en un Listbox mientras se escribe.
En el VBA de excel lo he hecho, pero si quiero hacer el código en VB6 no me sale...
Ahí podéis ver a lo que me refiero:

http://img51.imageshack.us/img51/325/pruebaas.jpg

Aquí el código que tengo en VB de excel:

Private Sub TextBox2_Change()
Sheets("base").Activate
Sheets("base").Range("a1").Select
ListBox1.RowSource = Empty
Sheets("Productos").Range("A:c") .ClearContents
Sheets("base").Range("E2:G2") .ClearContents
ListBox1.ColumnWidths = "40;230;60"
Sheets("base").Range("F2") = "*" & TextBox2 & "*"
Range("a1:c1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"F1:F2"), copytorange:=Sheets("Productos").Range("… Unique:=False
ListBox1.RowSource = "Productos!a2:c1000"
End Sub

Gracias!