A closing bracket is missing in my code:
FilterString = replace(FilterStringTemplate, "{FilterValue}", "'" & replace(FilterValue, "'", "''") & "*'")
More readable:
private sub FilterSubForm(byval FilterValue as Variant)
Const FilterStringTemplate as String = "[Contact Name] LIKE...