上面图声明错了 是这个
Public Function GetINI(ByVal vSection As String, ByVal vKeyName As String, ByVal vFilePath As String) As String '读
GetINI = String(10000, Chr(0))
GetINI = Left(GetINI, GetPrivateProfileString(vSection, ByVal vKeyName, "", GetINI, Len(GetINI), vFilePath))
GetINI = Replace(GetINI, Chr(0), "")
End Function