Excel - Problema e Textbox y autofiltro

hola, este es el codigo mejorado... pero aun asi tengo un problema, resulta que quiero usarlo para buscar numeros de codigos de barra.. pero no aparecen una vez que ingreso por el textbox el codigo. Se que tiene que ver pq solo toma Strings pero no se como convertir las celdas con numeros a String.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
memo = TextBox1
ActiveSheet.Range("A1:F5000").AutoFilter Field:=2, Criteria1:="=*" & [memo] & "*" _
, Operator:=xlAnd
End If
ActiveWindow.SmallScroll Down:=-63
End Sub

archivo: https://www.dropbox.com/s/fceo7bcoxlzryr7/MUESTRA.xlsm