Check VBA code to locate value in cell

[Akw47]

Hello this is the current code I have

Private Sub TextBox1_AfterUpdate()

Dim m As String
Dim rx As String
rx = Trim(TextBox1.Text)
lastrow = Worksheets("sheet1").Cells(rows.Count, 5).End(x1Up).Row

For i = 2 To lastrow
If Worksheets("sheet1").Cells(i, 1).Value = rx Then
TextBox2.Text = Worksheets("sheet1").Cells(i, 2).Value

If rx = (InStr(Me.TextBox1.Value, "/") > 0 Or InStr(Me.TextBox1.Value, ",") > 0) Then
m = MsgBox("Please confirm", vbYesNo, "Double Check")
        End If
    End If
End Sub

I want it such that if there is a "/" or "," along with the found value. A message box should pop out. Currently, there seems to be a error. Could you help me edit it?

 

[Akw47]

Did you put 12345 in col A before the last row of data in col E?

i put 12345 / in col A. to test whether that function works. when i type 12345 in textbox

 

[Fluff]

But is there data in col E below that value?

 

[Akw47]

yep

But is there data in col E below that value?

 

[Fluff]

You also need to change this

Dim rx As Double

 

[Akw47]