Sub PayBtn_Click Dim Payment As ZPaymentRequest Payment.Initialize Payment.Amount = 100 Payment.MerchantID = MerchantID Payment.Description = "In App Purchase Test SDK" Payment.Email = ...