KeyValue.Initialize(xui.DefaultFolder,"AppSettings") 'For saving relevant subscription data
Dim RevCatUserId As String = KeyValue.GetDefault("RevCatUserId",GUID) 'If no user guid is saved, then generate a new
KeyValue.Put("RevCatUserId",RevCatUserId)
RevCat.Initialize("RevenueCatAPIKey",RevCatUserId,Array As String("all_access_1_year","all_access_1_month"))
CheckPurchases