I have a short code to search column C ina sheet for Numerical values as
below:

Private Sub TextBox1_Change()
If IsNumeric(TextBox1.Value) = False Then TextBox1.Value = ""
If TextBox1.Value < "" Then
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox1.AddItem "Solid Woven"
ListBox1.AddItem "Rubber Ply"
ListBox1.AddItem "Steel Cord"
Dim LastCell As Long
Dim myrow As Long
LastCell = Worksheets("InspectionData").Cells(Rows.Count, "C").End(xlUp).Row
With ActiveWorkbook.Worksheets("InspectionData")
..Select
For myrow = 1 To LastCell
If .Cells(myrow, 3) < "" And .Cells(myrow, 3).Value < 0 Then
If IsNumeric(.Cells(myrow, 3)) = True Then
ListBox3.AddItem Cells(myrow, 3)
End If
End If
Next
End With


It works great, but i need to add a condition so that ONLY values (=) to
the value in Textbox1 is shown in Listbox3.
But as below, when i add that section of code highlighted, i get NO values
at all.


If IsNumeric(TextBox1.Value) = False Then TextBox1.Value = ""
If TextBox1.Value < "" Then
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
ListBox1.AddItem "Solid Woven"
ListBox1.AddItem "Rubber Ply"
ListBox1.AddItem "Steel Cord"
Dim LastCell As Long
Dim myrow As Long
LastCell = Worksheets("InspectionData").Cells(Rows.Count, "C").End(xlUp).Row
With ActiveWorkbook.Worksheets("InspectionData")
..Select
For myrow = 1 To LastCell
If .Cells(myrow, 3) < "" And .Cells(myrow, 3).Value < 0 Then
If IsNumeric(.Cells(myrow, 3)) = True And .Cells(myrow, 3).Value =
TextBox1.Value Then ' <==== THIS BIT HERE
ListBox3.AddItem Cells(myrow, 3)
End If
End If
Next
End With
End If
End Sub


How can i sucessfully add that condition so it WILL work?


Corey....