code is reading ini as text not number

[bagstoper]

the code i have reads ini information as text and not a number like i want it to. the problem ocurres on frmsplash. the varriables are defined in module1. let me know if you need any more inforemation. any help would be nice


frmsplash

Private Sub Command1_Click()
Form1.Show
frmSplash.Hide
charname = "Gregor"
race = ReadIniValue(App.Path & "\default.ini", "Default", "race")
maxhp = ReadIniValue(App.Path & "\default.ini", "Default", "maxhp")
hp = ReadIniValue(App.Path & "\default.ini", "Default", "hp")
pmp = ReadIniValue(App.Path & "\default.ini", "Default", "pmp")
maxpmp = ReadIniValue(App.Path & "\default.ini", "Default", "maxpmp")
atk = ReadIniValue(App.Path & "\default.ini", "Default", "atk")
pac = ReadIniValue(App.Path & "\default.ini", "Default", "pac")
gold = ReadIniValue(App.Path & "\default.ini", "Default", "gold")
plvl = ReadIniValue(App.Path & "\default.ini", "Default", "plvl")
str = ReadIniValue(App.Path & "\default.ini", "Default", "str")
dex = ReadIniValue(App.Path & "\default.ini", "Default", "dex")
con = ReadIniValue(App.Path & "\default.ini", "Default", "con")
intelect = ReadIniValue(App.Path & "\default.ini", "Default", "intelect")
wis = ReadIniValue(App.Path & "\default.ini", "Default", "wis")
cha = ReadIniValue(App.Path & "\default.ini", "Default", "cha")
xp = ReadIniValue(App.Path & "\default.ini", "Default", "xp")
End Sub
 
Private Sub Command2_Click()
Form1.Show
frmSplash.Hide
charname = "Lidda"
race = ReadIniValue(App.Path & "\default.ini", "Default", "race")
maxhp = ReadIniValue(App.Path & "\default.ini", "Default", "maxhp")
hp = ReadIniValue(App.Path & "\default.ini", "Default", "hp")
pmp = ReadIniValue(App.Path & "\default.ini", "Default", "pmp")
maxpmp = ReadIniValue(App.Path & "\default.ini", "Default", "maxpmp")
atk = ReadIniValue(App.Path & "\default.ini", "Default", "atk")
pac = ReadIniValue(App.Path & "\default.ini", "Default", "pac")
gold = ReadIniValue(App.Path & "\default.ini", "Default", "gold")
plvl = ReadIniValue(App.Path & "\default.ini", "Default", "plvl")
str = ReadIniValue(App.Path & "\default.ini", "Default", "str")
dex = ReadIniValue(App.Path & "\default.ini", "Default", "dex")
con = ReadIniValue(App.Path & "\default.ini", "Default", "con")
intelect = ReadIniValue(App.Path & "\default.ini", "Default", "intelect")
wis = ReadIniValue(App.Path & "\default.ini", "Default", "wis")
cha = ReadIniValue(App.Path & "\default.ini", "Default", "cha")
xp = ReadIniValue(App.Path & "\default.ini", "Default", "xp")
End Sub
 
Private Sub Form_Resize()
If Form1.Height < 4335 Then
Form1.Height = 4335
End If
If Form1.Width < 8490 Then
Form1.Width = 8490
End If
If Form1.Height > 4335 Then
Form1.Height = 4335
End If
If Form1.Width > 8490 Then
Form1.Width = 8490
End If
End Sub

that is all the code on frmsplash




module1

Global gold As Integer
Global str As Integer
Global dex As Integer
Global con As Integer
Global intelect As Integer
Global wis As Integer
Global cha As Integer
Global charname
Global hp As Integer
Global atk As Integer
Global exp As Integer
Global mobname
Global mobhp As Integer
Global mobatk As Integer
Global maxhp As Integer
Global mobgold As Integer
Global pac As Integer
Global mobac As Integer
Global maxmobhp As Integer
Global minmobhp As Integer
Global plvl As Integer
Global boat As Boolean
Global race
Global pmp As Integer

please help me

EDIT: i uploaded the ini i was referencing