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