Finding any two values in each cell text in a column of cells with both values as one Textbox1 variable

[chazrab]

As the title explains This code below works well enough if two variables x and y from two different textboxes are used:

    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim cell As Range
    Dim targetRow, lastrow As Long
    Dim x, y As String
   x = Textbox9.Value
   y = Textbox10.Value
    Set wsSource = ThisWorkbook.Sheets("Source") ' Change to your source sheet name
     Sheets("Result").UsedRange.ClearContents
    Set wsTarget = Sheets("Result") 'ThisWorkbook.Sheets.Add ' Creates a new sheet for the filtered data
    targetRow = 1 ' Initialize the target row
    For Each cell In wsSource.Range("E1:E31103")      'UsedRange
        If InStr(1, cell.Value, x, vbTextCompare) > 0 And InStr(1, cell.Value, y, vbTextCompare) > 0 Then
           cell.EntireRow.Copy wsTarget.Cells(targetRow, 1)
            targetRow = targetRow + 1
       End If
    Next cell
    MsgBox "Filtered data copied to Result sheet"
    lastrow = Sheets("Result").Range("B" & rows.count).End(xlUp).Row
    Me.TextBox3.Value = ListBox2.ListIndex + 1
    Me.TextBox4.Value = lastrow
    Sheets("Result").Range("H1").Value = lastrow
End Sub
[/ccode]

This line looks for the two variable values x and y from two different textboxes, Textbox9 and Textbox10.
[code]
If InStr(1, cell.Value, x, vbTextCompare) > 0 And InStr(1, cell.Value, y, vbTextCompare) > 0 Then...

I don't want two textboxes. I want to be able to type both values in one textbox
such as

x = Textbox1.value if Textbox1.value = "sun [and] moon" , OR "green [and] tree"
and give the same result as having each value  in two separate textboxes
I'm having a tough time figuring out how to change the InStr code line to do that 

Any help would be appreciated. 
cr

 

[chazrab]

...one more thing. The beauty about this revised code is that will also find just about any word form:
In case you haven't guessed, this is a Bible application. Any search to find words or phrases has to be done
over 31,103 rows of verse text across 4 columns. The button stays depressed for quite while. Anyway, all I'll ever need to do in any search is
type in Textbox1 any of these forms. I did and the new code found them all:

"sun dark" - any two words that has text between, before or after them.
"last days" - any single phrase
"Isaiah 65:" - any Book, chapter
"Matthew 24:15" - any Book, chapter and verse

...without quotes, of course.

Thanks again, dreid1011

cr