参考代码
Dim str As String = "1,2,3,4,5"
Dim nstr As String = ""
For Each s As String in str.split(",")
nstr &= " or 第一列 like '%" & s & "%'"
Next
nstr = nstr.substring(3)
msgbox(nstr)