Andrés, solo algo malo, trata de definirte en cual de los foros escribes, pues en mi caso leo todos, y en ocaciones me da pereza contestar este tipo de mensajes, lo veo un poco como que en vez de buscar en la web quieres una respuesta en las manos.
Te propongo algo, investiga un poco sobre las funciones que te voy a pasar:
GetPrivateProfileString, WritePrivateProfileString.
Parece cruel, pero me gusta que investiguen, pocas veces paso todo el código.
Antes de todo, esas son funciones api, ¿sabes qué son?, si es así es bueno, pero sino, escríbeme y te respondo, pues es algo grande.
Por cierto, coloca el código abajo en un módulo para poder usar esas funciones:
public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal pvlpApplicationName As String, ByVal pvlpKeyName As Any, ByVal pvlpString As Any, ByVal pvlpFileName As String) As Long
public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal pvlpApplicationName As String, ByVal pvlpKeyName As Any, ByVal pvlpDefault As String, ByVal pvlpReturnedString As String, ByVal pvnSize As Long, ByVal pvlpFileName As String) As Long