dim PathInput as string
dim PathOut as string
    Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
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 String, _
ByVal lpString As String, _
ByVal lpFileName As String) As Long

    Public Function ReadFileIni() As Boolean

            FullNameIni = "C:\FU.ini"

            myStr = Space( 100 )
            Call GetPrivateProfileString("General", "PathInput", " -+", myStr, Len(myStr), FullNameIni)
            PathInput = Trim(myStr)
            myStr = Space( 256 )
            Call GetPrivateProfileString("General", "PathOut", "-+ ", myStr, Len(myStr), FullNameIni)
            PathOut = Trim(myStr)
    End Function

Public Function SaveFileIni() As Boolean
        FullNameIni = "C:\FU.ini"

        Call WritePrivateProfileString("General", "PathInput", PathInput, FullNameIni)
        Call WritePrivateProfileString("General", "PathOut", PathOut, FullNameIni)
    End Function

    Public Function SaveFileIni() As Boolean
        FullNameIni = "C:\FU.ini"
        PathInput = Space( 100 )
        PathOut = Space( 100 )

        Call WritePrivateProfileString("General", "PathInput", "PathInput", FullNameIni)
        Call WritePrivateProfileString("General", "PathOut", "PathOut+PathOut+PathOut+PathOut", FullNameIni)


        GetPrivateProfileString("General", "PathOut", "хРень", PathOut, Len(PathOut), FullNameIni)
        MsgBox(PathOut)
        GetPrivateProfileString("General", "PathOut", "Что это", PathInput, Len(PathOut), FullNameIni)
        MsgBox(PathInput)
    End Function