Dim lngSize as long
Dim strContext as long
lngSize = 255
strContext = String(lngSize,0)
GetPrivateProfileString "Update Informations","VersionCode", "", strContext , lngSize , App.Path & "\Update\Update.ini"
strContext = replace(strContext ,chr(0)) & chr(0)
Msgbo strContext