ValidationMBS.AppStoreReceipt(file as folderitem) as dictionary

// read a receipt file
dim file as FolderItem = SpecialFolder.Desktop.Child("receipt")

// query values
dim dic as Dictionary = ValidationMBS.AppStoreReceipt(file)

// show identifier
MsgBox dic.Value(ValidationMBS.kReceiptBundleIdentifer)

You can use this to get details from your receipt.
Returns nil on any error.
Please pass folderitem to receipt file.

ValidationMBS.ExitApp(code as Integer = 173)

ValidationMBS.ExitApp 173

This does not call the destructors and CancelClose events. The app is quit right away.
If you use code 173 the Finder will show error message that app needs to be downloaded again from Mac App Store.

ValidationMBS.GUID as string

dim g as String = ValidationMBS.GUID
MsgBox EncodeHex(g)

This is normally build from the MAC ID of the ethernet card.

ValidationMBS.locateAppStoreReceipt as folderitem

dim f as FolderItem = ValidationMBS.locateAppStoreReceipt
MsgBox f.NativePath

Please check result if folderitem is not nil and exists before processing.

ValidationMBS.Validate(file as folderitem) as boolean

dim file as FolderItem = ValidationMBS.locateAppStoreReceipt

if ValidationMBS.Validate(file) = false then
  ValidationMBS.ExitApp 173
else
  // ok
end if

Returns true if valid and false if not.