Sub MyStore_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Product.IsInitialized And Success Then
Log("Product: " & Product.ProductIdentifier & ", date=" & DateTime.Time(Product.TransactionDate) & _
", Transaction identifier=" & Product.TransactionIdentifier)
Else
...
End If
Log(Success)
Log(Product.Error.Code)
Log(Product.Error.Message)
End Sub