Private Sub Text_codigo_Change()
Dim codigo As String
codigo = Text_codigo.Value
Me.Text_nombre = Application.WorksheetFunction.VLookup(codigo, Sheets("formulario").Range("b:f"), 2,
Me.Text_apellidos = Application.WorksheetFunction.VLookup(codigo, Sheets("formulario").Range("b:f"), 3, 0)
Me.Text_empresa = Application.WorksheetFunction.VLookup(codigo, Sheets("formulario").Range("b:f"), 4, 0)
Me.ComboBox1 = Application.WorksheetFunction.VLookup(codigo, Sheets("formulario").Range("b:f"), 5, 0)
End Sub