hola, te puedo ayudar con el archivo ini:
En un Módulo
'Función api que recupera un valor-dato de un archivo Ini
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'Función api que Escribe un valor - dato en un archivo Ini
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Public Function Saveini(Path_INI As String, Title As String, Key As String, Valor As Variant) As String
WritePrivateProfileString Title, Key, Valor, Path_INI
End Function
Public Function Openini(Path_INI As String, Title As String, Key As String, Default As Variant) As String
Dim bufer As String * 256
Dim Len_Value As Long
Len_Value = GetPrivateProfileString(Title, Key, Default, bufer, Len(bufer), Path_INI)
Openini = Left$(bufer, Len_Value)
End Function
Para guardar en el ini:
Call Saveini(App.path & "\Archivo.ini", "Clave-unica-d-carpeta", "RutaOriginal", "D:\ORDEN_DATOS\A\CANTO")
Para consultar:
Variable = Openini(App.path & "\Archivo.ini", textbox1.text, "RutaOriginal", "")
espero que te sirva de algo