Dim s As String = "123"
Dim str As String = "1|2|3|4|5"
If ("|" & str & "|").Contains(s) = False Then
msgbox("不行")
End If