Не работает запись в ini - VB

Формулировка задачи:

писал первую программу все работало, а теперь только читает данные из (ини) а записывать не хочет. вот что в модуле:

Option Explicit
 
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
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
 
Function WriteIni(sSection As String, sKeyName As String, sNewString As String, sINIFileName As String) As Boolean
On Local Error Resume Next
Call WritePrivateProfileString(sSection, sKeyName, sNewString, sINIFileName)
WriteIni = (Err.Number = 0)
End Function
 
Function ReadINI(sSection As String, sKeyName As String, sINIFileName As String) As String
On Local Error Resume Next
Dim sRet As String
sRet = String(255, Chr(0))
ReadINI = Left(sRet, GetPrivateProfileString(sSection, ByVal sKeyName, "", sRet, Len(sRet), sINIFileName))
End Function

вот это при загрузке формы:

path_file = App.Path
If Right(path_file, 1) <> "\" Then path_file = path_file & "\"

а вот этим записываю данные:

WriteIni "stat", "bal", "ball", path_file & "setting.ini"

все разобрался!

Решение задачи: «Не работает запись в ini»

textual
                            Листинг программы 
                        

                            If loto_prog = 10 Then
 trace "Вы выиграли 1 балл!"
 ball = Val(ball) + Val(1)
 balls 'сохранение кол-ва баллов
 End If
 
Private Sub balls()
WriteIni "stat", "bal", ball, path_file & "setting.ini"
End Sub
                        