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....