Select the row to check the value of the textbox

[sofas]

Hello please help in correcting this code
I want to check the values of text boxes and select row
The first code works efficiently but I want to add other text boxes for verification

Sub find()
On Error Resume Next
Dim found As Range
Set found = Sheets("sheet1").Columns("A").find(what:=Me.TextBox8.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not found Is Nothing Then found.EntireRow.Select

  End Sub

On Error Resume Next
Dim found As Range
Set found = Sheets("sheet1").Columns("A").find(what:=Me.TextBox8.Value, LookIn:=xlValues, lookat:=xlWhole)
Set found = Sheets("sheet1").Columns("E").find(what:=Me.TextBox9.Value, LookIn:=xlValues, lookat:=xlWhole)
Set found = Sheets("sheet1").Columns("i").find(what:=Me.TextBox10.Value, LookIn:=xlValues, lookat:=xlWhole)

If Not found Is Nothing Then found.EntireRow.Select

  End Sub

 

[sofas]

Hello, is there any similar idea that can help me?