VB读写INI文件

Public iniFileName As String 
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long 
Public 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 
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 Long 

'****************************************获取Ini字符串值(Function)****************************************** 
Function GetIniS(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefString As String) As String 
Dim ResultString As String * 144, Temp As Integer 
Dim s As String, i As Integer 
Temp% = GetPrivateProfileString(SectionName, KeyWord, "", ResultString, 144, AppProFileName(iniFileName)) 
'检索关键词的值 
If Temp% > 0 Then '关键词的值不为空 
s = "" 
For i = 1 To 144 
If Asc(Mid$(ResultString, i, 1)) = 0 Then 
Exit For 
Else 
s = s & Mid$(ResultString, i, 1) 
End If 
Next 
Else 
Temp% = WritePrivateProfileString(SectionName, KeyWord, DefString, AppProFileName(iniFileName)) 
'将缺省值写入INI文件 
s = DefString 
End If 
GetIniS = s 
End Function 

'**************************************获取Ini数值(Function)*************************************************** 
Function GetIniN(ByVal SectionName As String, ByVal KeyWord As String, ByVal DefValue As Long) As Integer