Dim p As PhoneId 'ignore, required for the permission
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim SubscriptionManager As JavaObject = ctxt.RunMethod("getSystemService", Array("telephony_subscription_service"))
Dim infolist As List = SubscriptionManager.RunMethod("getActiveSubscriptionInfoList", Null)
For Each info As JavaObject In infolist
Log(info)
Log(info.RunMethod("getSubscriptionId", Null))
Next