#If Win64 Then
    Private Declare PtrSafe Function GetPPString Lib "kernel32" Alias "GetPrivateProfileStringW" ( _
        ByVal lpAppName As LongPtr, _
        ByVal lpKeyName As LongPtr, _
        ByVal lpDefault As LongPtr, _
        ByVal lpReturnedString As LongPtr, _
        ByVal nSize As LongLong, _
        ByVal lpFile As LongPtr) As Long
...
#End If
...
Dim sBuffer As String, nBufferSize As Long
    nBufferSize = размер_файла
    sBuffer = String$(nBufferSize - 1, Chr$(0))
    nResult = GetPPString(StrPtr(sSection), StrPtr(sKey), StrPtr(""), StrPtr(sBuffer), nBufferSize - 1, StrPtr(имя_файла))
    sValue = Left$(sBuffer, nResult)
...