If Mid(ComboBox1.Value, 1, 1) = "B" Or Mid(ComboBox1.Value, 9, 1) = "B" Then
Tipo = 2
Else
Tipo = 1
End If

Ancho = Mid(ListBox1.Value, 1, 3)

If Mid(ListBox1, 18, 1) = "u" Then
Espesor = Mid(ListBox1.Value, 16, 2)
Else
Espesor = Mid(ListBox1.Value, 16, 3)
End If

Dim importacion As Variant, Proveedorproducto As Variant
importacion = Application.VLookup(TextBox7.Value, Worksheets("Estructura COD. Lotes Film").Range("A3:J102"), 3, False)
Proveedorproducto = Application.VLookup(TextBox7.Value, Worksheets("Estructura COD. Lotes Film").Range("A3:F102"), 6, False)

If IsError(importacion) = False Then
Cells(n, 7).Select
ActiveCell.FormulaR1C1 = TextBox7.Value & importacion & Proveedorproducto & Tipo & Ancho & Espesor
Else
Cells(n, 7).Select
ActiveCell.FormulaR1C1 = "No encontrado"
End If


En el TextBox7 se ingresan numeros (15, 18, 23,29 ) y en la Hoja "Estructura COD. Lotes Film" se encuentran estos mismos valores y los que debe devolver (datos de la fila 3 y 6 ) son numeros 


AYUDA PORFAVOOOOOOOOOR 

Hola andresko, 

Prueba a convertir el valor del textbox a entero con CInt(expresión)

Complementando a nachobm:

importacion = Application.VLookup(CLng(TextBox7.Value), _
   Worksheets("Estructura COD. Lotes Film").Range("A3:J102"), 3, False)