Ciao ti ringrazio per l'interesse,
ho fatto una prova ed è chiaro tutto l'esempio non è corretto di fatto sono intervenuto anch'io per altri errori. Adesso la msgbox dichiara l'errore quindi il tuo suggerimento e giusto, ti posto l'intero codice puoi dargli un'occhio.


codice:
'codice modulo
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

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




------------------------------------------------------
'codice del form
Public Function sGetINI(sINIFile As String, sSection As String, sKey As String, sDefault As String) As String
    Dim sTemp As String * 256
    Dim nLenght As Integer
    sTemp = Space$(256)
    nLenght = GetPrivateProfileString(sSection, sKey, sDefault, sTemp, 255, sINIFile)
    sGetINI = Left$(sTemp, nLenght)
End Function

Public Sub writeINI(sINIFile As String, sSection As String, sKey As String, sValue As String)
    Dim n As Integer
    Dim sTemp As String
    sTemp = sValue
    For n = 1 To Len(sValue)
        If Mid$(sValue, n, 1) = vbCr Or Mid$(sValue, n, 1) = vbLf Then Mid$(sValue, n) = " "
    Next n
    n = WritePrivateProfileString(sSection, sKey, sTemp, sINIFile)
End Sub

Private Sub cmdSalva_Click()
    Dim ValoreDiRitorno As Long
    Dim NomeFile
    NomeFile = "c:\test.ini"
    ValoreDiRitorno = WritePrivateProfileString(txtSezione, txtChiave.Text, txtValore.Text, NomeFile)
    If ValoreDiRitorno = 0 Then
        MsgBox "Si è verificato un errore!", vbExclamation
    End If
End Sub

Private Sub cmdApri_Click()
    Dim ValoreDiRitorno As Long
    Dim NomeFile
    NomeFile = "c:\test.ini"
    Dim StringaDiRitorno As String * 50
    ValoreDiRitorno = GetPrivateProfileString(txtSezione, txtChiave, StringaDiRitorno, StringaDiRitorno, Len(StringaDiRitorno), NomeFile)
    If ValoreDiRitorno = 0 Then
        MsgBox "Si è verificato un errore!", vbExclamation
    Else
        txtValore.Text = Trim(StringaDiRitorno)
    End If
End Sub
Il form contiene 3 campi:
txtSezione
txtValore
txtChiave
e due pulsanti:
cmdApri
cmdSalva

ti ringrazio