stringURI="payclient://pay/v1?mKey=1&appId=TestDialogs&action=sale&clientTransactionId=1234567801234&amount="& value & "&callback=mycallbackscheme://result"
Dim intent1 As Intent
intent1.Initialize(intent1.ACTION_VIEW, stringURI )
intent1.PutExtra("output", Result)