主题：截取函数问题

A表有身份证列

用身份证筛选，代码如下：

With e.Form.Controls("TEXTBOX2")

    If .Value IsNot Nothing Then

        If Filter > "" Then

            Filter = Filter & " And "

        End If 

        Filter = Filter & "身份证 = '" & .Value & "'"

        End If

End With

请教，我想用身份证后4位数筛选，如何用SUBSTRING()改写如上代码，谢谢！