Información de documentos

No sabia bien como meterle mano sin saber las columnas concretas que le hacían falta, pero al final he encontrado el método.
Si no entiende bien el funcionamiento, vuelvame a responder y se lo intentaré explicar mejor.
El funcionamiento de la función es el siguiente:
Nada más inicializar el programa le va a pedir que seleccione el archivo excel de la base de datos para abrirlo. No lo debe cerrar.
Pretendo que le ponga una llamada en su función donde inserta los datos y le agregue un par de líneas a su códgo, su código quedaría como a continuación:
Private Sub CommandButton3_Click()
If keyascii = 13 Then
Control.SetFocus
End If
If TextBox1.Text <> "" Then
call comprueba()  'llama a la función que hemos creado
ThisWorkbook. Worksheets("hoja1"). Activate 'activa la hoja para escribir, aqui tienes que poner donde pone hoja1 el nombre de la 'hoja donde insertas los datos.
Range("b8").Select
Selection.EntireRow.Insert
Range("b8").Select
ActiveCell.Value = Val(TextBox1)
TextBox1 = Empty
Else
MsgBox "Ingrese un Código de Barra"
End If
TextBox1.SetFocus
End Sub
Tienes que poner antes de cualquier código para hacerlo público a todas las funciones, lo siguiente:
Dim strRutaArchivo, strNombre As String
Dentro del Form_load() poner esto:
'un poco de información
MsgBox ("Abra la base de datos en archivo Excel.")
'elegir archivo
strRutaArchivo = Application.GetOpenFilename()
'Application.GetOpenFilename("Libro de Microsoft Excel (*.xlsx),*.xlsx")
Workbooks.Open Filename:=strRutaArchivo
strNombre = ActiveSheet.Parent.Name
A continuación la función que hace las comparaciones:
Sub comprueba()
 Dim codcarta, nombre_hoja, columna_usuario, columna_direccion, columna_ciudad, columna_pais As String
Dim celda, encontrado As Integer
celda = 1 'numero de fila por la que empieza a buscar
encontrado = 0
nombre_hoja = "hoja1" 'nombre de la hoja donde esta la BD
codcarta = "B" 'Columna del codigo de barras que identifica al usuario en la BD, es donde va a buscar la función
columna_usuario = "C" 'Columna donde estan los nombres de los cliemtes
columna_direccion = "D" 'Columna donde estan las direcciones
columna_ciudad = "E" 'Columna de la ciudad del cliente
columna_pais = "F" 'Columna del pais del cliente
Application.Workbooks(strNombre).Worksheets(nombre_hoja).Activate
Do
 vari = Application.Workbooks(strNombre).Worksheets(nombre_hoja).Application.Cells(celda).Columns(codcarta).Value
 If vari = textbox1.Text Then
  encontrado = 1
  'escribimos en el textbox2.text el nombre del cliente.
  textbox2.Text = Application.Workbooks(strNombre).Worksheets(nombre_hoja).Application.Cells(celda).Columns(columna_usuario).Value
  'le añadimos a textbox2.text la direccion del cliente.
  textbox2.Text = textbox2.Text + "-" + Application.Workbooks(strNombre).Worksheets(nombre_hoja).Application.Cells(celda).Columns(columna_direccion).Value
  'escribimos en textbox3.text la ciudad del cliente
  textbox3.Text = Application.Workbooks(strNombre).Worksheets(nombre_hoja).Application.Cells(celda).Columns(columna_ciudad).Value
  'le añadimos a textbox3.text el pais del cliente.
  textbox3.Text = textbox3.Text + "-" + Application.Workbooks(strNombre).Worksheets(nombre_hoja).Application.Cells(celda).Columns(columna_pais).Value
  Exit Do
 End If
 celda = celda + 1
Loop While vari <> ""
If encontrado = 0 Then
 MsgBox "No se han encontrado resultados"
End If
End Sub
He creado unas variables, que en función de las columnas que te hagan falta, las modifiques, están explicadas a su lado, otro dato es la hoja de excel donde está alojada la Base de datos, tiene que escribirla donde pone hoja1, también está explicado.
Los resultados que encuentra te los rellena en el textbox2 y el textbox3, también está explicado.
En el caso de que no encuentre nada muestra un letrero de que no ha encontrado resultados.
Espero que te haya servido. Ya me contaras