Ayuda con mi programa de visual basic 6.0

¿Indicame qué tipo de variable es buscar?

buscado = InputBox("EL NUMERO DE ARTICULO A BUSCAR")
if buscar="" then
  exit sub
end if
Data11.Recordset.FindFirst "NUMERO=" & "" & buscado & ""
If Data11.Recordset.NoMatch Then
MsgBox ("NO SE ENCONTRO EL REGISTRO")
Data11.Recordset.MoveLast
End If

Ya lo intente con el código que me pusiste abajo pero sigue igual no realiza la búsqueda
y buscado pues es el que se le asigna ala búsqueda no esta especificado que sea de ningún tipo pero también ya lo había intentado de esta forma asignándole un tipo a buscado
con el dim buscado, criterio as byte
buscado=inputbox("que código quieres buscar")
Y me menada el error
type mismatch

Ey pero lógicamente tienes que indcarle un tipo básicamente string, para que te funcinoe lo que te mande si no no lo ara, ahora no puede ser de cualquier tipo porque en tu BD estoy seguro que le has definido uno, ahora el tipo que crees tiene que acaer referencia este nuevo

Mira en mi base de datos esta definido el campo numero como byte que es al que se le esta asignando la variable buscado entonces buscado por lo tanto es tipo byte pero como te comentaba lo realize también con esta codificación y
private sub buscar
dim buscado,criterio as byte
buscado=inputbox("numero a buscar")
criterio="numero"*" &buscado& "*"
data11.recordset.findfirst criterio
if data11.recordset.nomatch then
msgbox("no se encontro el registro")
data11.recordset.movelast
Endif
ensub
Bueno esto es lo que tenia anteriormente y tampoco funciono me manda el error de typemismatch

porque no lo pruebas con string?

Ya lo hice y en lugar de el campo código que es byte le puse el campo nombre que es de tipo text. Con string
pero me sigue mandando el mismo error mismatch type
por eso te decía que ya lo había intentado de muchas formas estoy atorado ahí porque no puedo hacer mi programa exe con ese error. Si le das aceptar como estaba al principio me realiza la búsqueda sin ningún problema, el problema empieza cuando le doy cancelar o le doy en el botón cerrar de la esquina de el cuadro de dialogo.
Ya lo intente en modo exe porque pensé que ya corriéndolo bien ya no iva a mandar el error pero no, sale lo mismo. Y es que tengo un manual donde viene la codificación de ese botón
y esta igual a como lo tenia en un principio.

Bueno la verdad es muy raro lo que te pasa es algo muy simple pero al no ayarle otra solución, pues entonces no uses el InputBox crea una pantallita simulándolo y listo en el cancelar solo le pones Unlod Me