No, i'm in a company. Old add-ins connects with a program. I have extracted the part of the code which process the error:

___________________________________________________________________________ ________________________

Public Sub VentanaInicio()
Dim i As Long
Dim RutaIni As String
Dim UtilesComunes As ****UtilidadesComunes.Utilidades
Dim ObjUtiles As Object

On Local Error GoTo ControlError

Set UtilesComunes = New ****UtilidadesComunes.Utilidades
Set ObjUtiles = CreateObject("****_Util.utiles")
RutaIni = ObjUtiles.GetReg("HKEY_LOCAL_MACHINE\SOFTWARE\****\****_Tesoreria", "RutaAplicacion")

RutaBD = UtilesComunes.GetProfile(RutaIni & "\cmt.ini", "BaseDa******vidor", "RutaBDServer", "")
RutaBDTT = UtilesComunes.GetProfile(RutaIni & "\cmt.ini", "BDTAyATesoreria", "RutaBDTT", "")
InformeProceso = UtilesComunes.GetProfile(RutaIni & "\cmt.ini", "BaseDa******vidor", "InformeProceso", "")
Set ObjUtiles = Nothing
Load Ficha
Ficha.Show
Set UtilesComunes = Nothing
Exit Sub
ControlError:
MsgBox "Error Nș: " & Err.Number & ", " & Err.Description, vbCritical
End Sub

___________________________________________________________________________ __________________________

HKEY_LOCAL_MACHINE\SOFTWARE\****\****_Tesoreria doesn't exist.

MsgBox "Error Nș: " & Err.Number & ", " & Err.Description, vbCritical is the dialog which appears on the screen.

**** is a word which i prefer don't show on forums.