求教VB API GetPrivateProfileInt的问题。。

Private 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
Private 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 Private Sub Command1_Click()
A = WritePrivateProfileString("Shutdown", "CmdLine", Text1.Text, App.Path & "\scripts.ini")
End Sub
Private Sub Command2_Click()
Text1.Text = GetPrivateProfileInt("Shutdown", "CmdLine", -1, App.Path & "\scripts.ini")
If Text1.Text = -1 Then Exit Sub
End Sub按Command1保存配置 按Command2读取配置。。。
保存纯数字能正常读取，但是如果有字母或者符号就不行了，有没办法解决？

相关了解……