Necesito ayuda con lo siguient:

Este codigo que creo es de los maestros Mihura o Sacha me da un error pues se me sale de focoel control y no logro resolverlo

   
    
' Elimina el filtro del formulario,
' si el cuadro combinado está vacío
    If Nz(Me.Combo9.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.Combo9.ListIndex <> -1 Then
        Me.Form.Filter = "[Nombre] = '" & Replace(Me.Combo9.Text, "'", "''") & "'"
        Me.FilterOn = True

' Filtra en formulario con una coincidencia parcial
    Else
        Me.Form.Filter = "[Nombre] Like '*" & Replace(Me.Combo9.Text, "'", "''") & "*'"
        Me.FilterOn = True
 
End If

' Mueve el cursor al final del cuadro combinado
 Me.Combo9.SetFocus
 Me.Combo9.SelStart = Len(Me.Combo9.Text)
   

Por favor si pueden necesito ayuda con esto,

gracias a todos y tengan un buen dia