Buscar con 2 textbox en una hoja de excel

Hola! Podrías yudarme?
Tengo un formulario y tengo el código en vb para buscar un registro al introducir lo buscado en el textbox y mostrarlo , pero no se como hacerlo para buscar el registro con 2 datos
Este es el código para buscar con un textbox, pero cómo lo hago para 2? Gracias!
Private Sub botonBuscar_Click()
Application.ScreenUpdating = False
Sheets("Profesores").Select
Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 1).Select
TextBox3 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox4 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox5 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox6 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox7 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox8 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox9 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox10 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox21 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox22 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox23 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox24 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox25 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox26 = ActiveCell
ActiveCell.Offset(0, 1).Select
TextBox27 = ActiveCell
End Sub