Dónde poner msgbox en combo like al no coincidir

Utilizo un combolike para filtrar registros en un formulario y el problema que tengo es que cuando parte de la cadena no coincide me da error 2185.

Creo que el problema viene porque en el origen del registro he añadido un campo de una consulta, que necesito.

Lo que quiero es que si no existe me de un msgbox diciendo que no existe en vez de el error 2185.

Utilizo este código al cambiar.

Private Sub cbobusqueda_Change()
' Elimina el filtro del formulario,
' si el cuadro combinado está vacío
If Nz(Me.cbobusqueda.Text) = "" Then
Me.Form.Filter = ""
Me.FilterOn = False
' Si se filtra un ítem del cuadro combinado,
' realiza una búsqueda exacta en el formulario
ElseIf Me.cbobusqueda.ListIndex <> -1 Then
Me.Form.Filter = "[Artículo] = '" & _
Replace(Me.cbobusqueda.Text, "'", "''") & "'"
Me.FilterOn = True
' Filtra en formulario con una coincidencia parcial
Else
Me.Form.Filter = "[Artículo] Like '*" & _
Replace(Me.cbobusqueda.Text, "'", "''") & "*'"
Me.FilterOn = True
End If
' Mueve el cursor al final del cuadro combinado
Me.cbobusqueda.SetFocus
Me.cbobusqueda.SelStart = Len(Me.cbobusqueda.Text)
End Sub