You would need to make the extra value(s) you want to use in a Predicate function either module level variables or control values. The way Predicates work you can’t pass in additional values on the function call although it would be handy if you could.

Here’s a simple example using a filter value in a text box:

Public Function FilterProduct(ByVal product As InventoryItem) As Boolean
    If txtFilter.Text.Length = 0 Then
        Return True
    Else
        If product.Description Like String.Concat("*", txtFilter.Text, "*") Then
            Return True
        Else
            Return False
        End If
    End If
End Function

And a ListBox being populated with the result:

With lstSelectedProducts
        .DataSource = Nothing
        .DataSource = ProductList.FindAll(AddressOf FilterProduct)
        .DisplayMember = "Description"
End With

I hope this answers your question. Let me know if it doesn’t.

Take Fileter int he example below, for example:

Public Sub LoadProductList(ByVal products As List(Of InventoryItem), byval filter as string)
lstProducts.Items.Clear()
For Each item As InventoryItem In products
If cboProductSubCode.Text.startswith(filter) Then
lstProducts.Items.Add(item)
End If
Next
End Sub