You would need to add each item in the array in turn having checked it against the filter. As yoy have not said what the list items are nor how the filter relates to them then it is impossible to be specific, but something like
For i = LBound(myArray) To UBound(myArray) If InStr(1, myArray(i), "The key text") > 0 Then Me.ListBox2016.AddItem myArray(i) End If Next i