我的INI文件的操作不是很完善

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPublic 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写
    Dim strFileName As String
    Dim lngReturn As Long
    
    strFileName = App.Path & "\Config.ini"
    
    'lngReturn = WritePrivateProfileSection(txtSection.Text, txtValue.Text, strFileName)
    lngReturn = WritePrivateProfileString("Config", txtSection.Text, txtValue.Text, strFileName)
    
    If lngReturn = 0 Then
        MsgBox "Failed"
    Else
        MsgBox "Sucessed"
    End If
读
    Dim strReturn As String * 2500
    Dim lngReturn As Long
    
    lngReturn = GetPrivateProfileString("Config", "name", "<NO>", strReturn, 2500, App.Path & "\config.ini")
    
    txtSection.Text = "name"
    txtValue.Text = Trim(strReturn)