Muestra mensaje al no encontrar dato con 2 criterios excel

Tengo 1 hoja ASISTENCIA con 2 columnas A:código y B:Fecha, 1 userform con 2 textbox, 1 botón comando que busca con el código siguiente.:

Private Sub cmdbuscacom_Click()
varcod1 = txtcodcom.Value
varfec1 = CDate(txtfcom.Value)
ind = 0
Sheets("ASISTENCIA").Select
rango = ("A2:A5000")
Set midato5 = ActiveSheet.Range(rango).Find(varcod1, LookIn:=xlValues, lookat:=xlWhole)
If Not midato5 Is Nothing Then
prim5 = midato5.Address
Do
If midato5.Offset(0, 1) = varfec1 Then
midato5.Select
ind = 1
End If
Set midato5 = ActiveSheet.Range(rango).FindNext(midato5)
Loop While Not midato5 Is Nothing And midato5.Address <> prim5 And ind = 0
End If
Set midato5 = Nothing
End Sub

Después de la búsqueda de lo solicitado con los 2 criterios no halla en la hoja ASISTENCIA, dónde pongo el siguiente. Código para que muestre el mensaje "DATO NO ENCONTRADO":

ELSE 

  msgbox(" DATO NO ENCONTRADO"

ENDIF

lo probé debajo de Loop pero no muestra.

Agradecería la ayuda o me faltaría más código para que muestre el msje. Uso excel 2016