copia questo codice in un modulo:
codice:
Option Explicit

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

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

Public IniFileName As String

Public Function LeggiIni(sezione As String, chiave As String, default As String) As String
  Dim stringa As String, buffer As Long, ret As Integer
  buffer = 255
  stringa = String(buffer, Chr(0))
  ret = GetPrivateProfileString(sezione, chiave, default, _
        stringa, buffer, IniFileName)
  LeggiIni = stringa
End Function

Public Function ScriviIni(sezione As String, chiave As String, valore As String) As Long
  ScriviIni = WritePrivateProfileString(sezione, chiave, _
              valore, IniFileName)
End Function
passi il path del file ini ad esempio:
codice:
Private Sub Form_Load()
IniFileName = "app.path & "\tuo_file.ini"
così li leggi :

codice:
valore= Val(LeggiIni("ItaEng", "ciao", "0"))
nella variabile valore hai il valore di "ciao"
così lo scrivi :

codice:
a = ScriviIni("ItaEng", "ciao", "hello")   ---> quell' "a=" se non lo metti da errore ...ma non so perchè :quipy: (al posto di "a" ovviamente puoi mettere quello che vuoi)
gli passi la sezione ---> ItaEng
la chiave ---> ciao
e il valore che deve assumere ---> hello