Vba dos condiciones juntas

hola necesito de su ayuda

tengo dos cmb: 1cmb horario, 2 cmb día cuando elijo un horario me llena 4 txt

Private Sub cmbhorario_Change()
dato = cmbhorario.Value
Set busco = Sheets("turnos").Range("A1:A50").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si lo encontró pasa los datos del resto de col a los textbox
If Not busco Is Nothing Then
txtcama1 = busco.Offset(0, 1) 'col B
txtcama2 = busco.Offset(1, 1) 'col C
txtcama3 = busco.Offset(2, 1) 'col d
txtcama4 = busco.Offset(3, 1) ' col
Else
txtcama1 = ""
txtcama2 = ""
txtcama3 = ""
txtcama4 = ""
End If
End Sub

lo que quiero es que llene los txt unicamente si cmbdia = lunes

para luego cambiar de columna si por ej el día es martes

Gracias