Registración de Controles

[Cj2009z]

Hola como estan, veran tengo que registrar un control .ocx pero no encuentro la manera de que me lo registre de una vez en la maquina yo tengo esto pero me tira error:

       Const cNombreFichero As String = "\Control\Control.ocx" 'dentro de una carptea
        Dim strRutaSistema As String
        Dim strRutaFichero As String
       
        strRutaSistema = Environ("windir") & "\System32\"
        strRutaFichero = Application.CurrentProject.Path & "\" & cNombreFichero 'aqui me tira el error
       
        Shell strRutaSistema & _
        "\Regsvr32.exe /s " & VBA.Chr(34) & _
        Application.CurrentProject.Path & "\" & VBA.Chr(34), vbHide

        Call Shell("\Setup.exe", vbNormalFocus) 'llama el programa de instalación al finalizar la registración
        End

gracias por su ayuda.

[wACtOr]

prueba a cambiar

Código (vb) [Seleccionar] Expandir

Application.CurrentProject.Path por

Código (vb) [Seleccionar] Expandir

App.Path

Creo que ese es el cproblema

[Cj2009z]

gracias por la respuesta ya encontre la solución es:                                                 Const cNombreFichero As String = "\Control\Control.ocx" 'dentro de una carptea
        Dim strRutaSistema As String
        Dim strRutaFichero As String
       
        strRutaSistema = Environ("windir") & "\System32\"
        strRutaFichero = Application.Path & "\" & cNombreFichero 'aqui me tira el error
       
        Shell strRutaSistema & _
        "\Regsvr32.exe /s " & VBA.Chr(34) & _
        Application.Path & "\" & VBA.Chr(34), vbHide

        Call Shell("\Setup.exe", vbNormalFocus) 'llama el programa de instalación al finalizar la registración
        End