OK! Risolto grazie mille... Se potesse servire a qualcuno:
è bastato alzare questi numeri da 50 a 1000....
- For x = 1 To 1000
- Dim temp As String * 1000


codice:
' rESTITUISCE IL VALORE DI UNA DETERMINATA CHIAVE IN UNA DETERMINATA SEZIONE DEL FILE INI
Public Function LeggiIni(ByVal sezione, chiave As String, ByVal nfile As String) As String
Dim r As Long
Dim x As Integer
Dim temp As String * 1000
Dim temp1 As String
Dim n As String
fIni = App.Path & "\" & nfile
r = GetPrivateProfileString(sezione, chiave, n, temp, Len(temp), fIni)
If r <> 0 And Len(temp) > 0 Then
    For x = 1 To 1000
        n = Mid(temp, x, 1)
        If n <> Chr(0) Then
            temp1 = temp1 & n
        End If
    Next x
    LeggiIni = temp1
Else
    LeggiIni = ""
End If
End Function