Búsqueda según el valor de dos TextBox

Tengo el siguiente código que realiza la busque y muestra según el valor de un TextBox y quisiera que lo hiciera de acuerdo a los valores de dos TextBox (Textbox1 y Texbox13) que son los valores de código del producto y N° de Factura en la Hoja "COMPRAS"

Agradecería infinitamente su ayuda

Private Sub CommandButton11_Click()
Application.ScreenUpdating = False
Sheets("COMPRAS").Select
codi = TextBox1.Value
Set busco = Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row).Find(codi, LookIn:=xlValues, lookat:=xlWhole)

If Not busco Is Nothing Then
CommandButton4.Visible = True
CommandButton5.Visible = True
Range("A" & busco.Row).Select
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 4)
TextBox8 = ActiveCell.Offset(0, 5)
TextBox10 = ActiveCell.Offset(0, 6)
TextBox11 = ActiveCell.Offset(0, 7)
TextBox12 = ActiveCell.Offset(0, 8)
TextBox13 = ActiveCell.Offset(0, 9)
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
CommandButton1.Visible = False
CommandButton3.Visible = False
CommandButton3.Visible = False
CommandButton11.Visible = False
Else
MsgBox "PRODUCTO NO EXISTE.", vbQuestion, "Información Importante"
TextBox1.SetFocus
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox8.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
CommandButton1.Visible = True
CommandButton11.Visible = True
CommandButton4.Visible = False
End If
End Sub