Prueba con algo de este tipo:
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Function LeerIni(ByVal IniFile As String, ByVal Seccion As String, ByVal Clave As String, Optional ByVal DftValor As String) As String
Dim lng1 As Long
LeerIni = Space(255)
lng1 = GetPrivateProfileString(Seccion, Clave, DftValor, LeerIni, 255, IniFile)
LeerIni = Left(LeerIni, lng1)
End Function
Private Sub EscribirIni(ByVal IniFile As String, ByVal Seccion As String, ByVal Clave As String, ByVal Valor As String)
Dim lng1 As Long
lng1 = WritePrivateProfileString(Seccion, Clave, Valor, IniFile)
End Sub
Otra forma muy sencilla sería utilizando el registro. Podrías utilizar las apis necesarias para crear tus claves en la sección del registro que necesitaras, pero más sencillo y despreocupado resultaría utilizar 'SaveSetting' para guardar los valores de las propiedades y 'GetSetting' para recuperarlos, y luego 'DeleteSetting' cuando quieras borrar la propiedad del registro.
Espero que esto te vaya bien.
Suerte.
