Thank You for help. This should work now
If File.Exists(File.DirInternal, "first_time") Then ' Not The First Time Install "UPDATE"
Dim versionCode As String
versionCode = File.ReadString(File.DirInternal, "first_time")
If versionCode = 1 Then ' The same version as Project Attributes
'Msgbox("This is the same Version", "!!!")
Else
Msgbox("1" & CRLF & " 2"& CRLF & " 3", "WHAT'S NEW")
File.WriteString(File.DirInternal, "first_time", "1") ' The same version as Project Attributes
End If
Else ' First Time Install
Msgbox("Thank you for your purchase" ,"")
File.WriteString(File.DirInternal, "first_time", "1") ' The same version as Project Attributes
End If