scusate ma sono stato assente; allora la scrittura del record e'
autonoma perche' richiamabile da piu' punti del programma; vi posto
il codice che provvede alla scrittura

Private Declare Auto Function WritePrivateProfileString _
Lib "kernel32.dll" _
Alias "WritePrivateProfileString" _
(ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpString As String, _
ByVal lpFileName As String) _
As Integer

Friend Function IniScrive(ByVal Section As String, _
ByVal Key As String, _
ByVal Value As String, _
Optional ByVal bRaiseError As Boolean = False) _
As Boolean
Dim LenResult As Integer
LenResult = WritePrivateProfileString(Section, Key, Value, FileConfig)
Return IIf(LenResult <> 0, True, False)
End Function