Macro Buscar para lector de tarjetas en Excel

[Granduke]

Hola a todos:

Estoy intentando hacer unas macros para una hoja de excel en las que debo de buscar un dato que está grabado en una tarjeta magnetica.

He puesto la siguiente macro:

Sub buscar_familia()
Dim n As Range
familia_a_buscar = InputBox("Introduce la familia a buscar", "Buscador")
Set n = [B:B].Find(What:=familia_a_buscar)
If n Is Nothing Then
MsgBox "No he encontrado nada. Lo siento."
Else
Range(n.Address).Select
MsgBox "Aquí tienes la palabra " & UCase(familia_a_buscar) & "."
End If
Set n = Nothing
End Sub

La macro funciona bien si introduzco el a mano, pero el problema es el siguiente:

Al pasar la tarjeta por el lector, la misma lee el siguiente código:

%090101001_

y automaticamente realiza la busqueda (no tenga que pulsar ENTER, es automático.

El problema radica en que los signos "%" y "_" no están en la hoja de excel, sólo los números...

¿como puedo eliminar estos signos de la busqueda?

Gracias.