This should be it:

Code:
For Each strLine As String In TextBox2.Text.Split(vbNewLine)
            Dim SearchFor As String = strLine.ToString

            If SearchFor <> "" Then
                Dim ItemToFind As String = SearchFor.Substring(SearchFor.LastIndexOf("=") + 1).TrimStart
                Dim ColumnName As String = SearchFor.Substring(SearchFor.FirstIndexOf("=") + 1).TrimStart
                Dim conjuction As String = "AND"

                Dim useANd As Boolean

                If Not useAND Then
                    conjuction = "OR"
                End If

                For Each dr As DataRow In PostalSorter.DtSample.Rows

                    If MyDataTable.Rows(RowNumber)(ColumnName) = ItemToFind Then
                        DataGridView1(0, DataGridView1.Rows(RowNumber).Index).Value = True
                        DataGridView1.Rows(RowNumber).DefaultCellStyle.ForeColor = Color.Red
                    End If
                Next


            End If