It looks like you're new here. If you want to get involved, click one of these buttons!
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Criteria As String = \"one*two*three*four\"
Dim Input As String = TextBox1.Text
Dim Raw() As String = Criteria.Split(\"*\")
Dim i As Integer = Array.BinarySearch(Raw, Input)
MsgBox(Raw(i))
End Sub
End Class
Raw(0) = \"one\"
Raw(1) = \"two\"
Raw(2) = \"three\"
Raw(3) = \"four\"