KeyValue.Initialize(xui.DefaultFolder,"AppSettings")
Dim RevCatUserId As String = KeyValue.GetDefault("RevCatUserId",GUID)
KeyValue.Put("RevCatUserId",RevCatUserId)
RevCat.Initialize("RevenueCatAPIKey",RevCatUserId,Array As String("all_access_1_year","all_access_1_month"))
CheckPurchases