主题：[求助] like 函数

老师 ， 这句代码该如何写 （按钮chick）

    Dim fphm As WinForm.TextBox = e.Form.Controls("TextBox3")
    Dim r As Row = Tables("收费登记表").current

    Dim str As String = r("作废fa piao号码")
    For Each s As String In str.Split(";")
        If  " str.Split(";") Like '%" & fphm.Value & "%'"  Then