[VB6]Add * Wild Cards To Your Program

[Bump J]

Heres an easy way to add * wild cards

Dim strTemp As String

For X = 0 To lstItems.ListCount - 1 Step 1 'Goes Through The List
If lstItems.List(X) = strItem 'If the item in the listbox is the same as the item your looking for then it goes to the other part of the program
Call DoSomething
ElseIf  InStr(1, lstItems.List(X), "*") Then 'If item in the listbox contains a * then it does these condition
strTemp = lstItems.List(X) 'put the current item in the listbox into a string so it doesnt change listbox
strTemp = Replace (strTemp, "*", "") 'replace the * with nothing
If InStr(1, strItem, strTemp) Then ' if the item in the listbox that had the * is in the item you are looking for it goes to the other part of the program
Call DoSomething
End If 
End If
Next X

[Laser Wave]

This doesn't actually show people how to use wild cards at all.

For a real wildcard system it would need to distinguish between the position that the * is placed. For example, it would only find items like green blah, green blah blah etc for green*, however your example would just find anything with green in it like blah blah green.