การหาคำจาก text ในฐานข้อมูล...ค้นหาว่า "บันชี" ----**คำว่า บัญชี เขียนผิด ต้องการให้ตัดคำ(แยกหาเฉพาะคำที่เขียนถูก)หาคำว่า "ชี"

            string[] arr = {"บัญชี","บัน","ชี"};
            string word = "บันชี";
            for (int i = 0; i < arr.Length; i++)
            {
                if (word.Contains(arr[i]))
                {
                    textBox1.Text += arr[i] + " ";
                }
            }

    Dim arr() As String = {"บัญชี", "บัน", "ชี"}
    Dim word As String = "บันชี"

    Private Sub SplitWord()
        For i As Integer = 0 To arr.Length - 1
            If (word.Contains(arr(i))) Then
                TextBox1.Text += arr(i) + " "
            End If
        Next
    End Sub