Dim r As Reflector
r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getSmsManagerForSubscriptionId", Array As Object(idSimCard), Array As String("java.lang.int"))
Dim parts As Object
parts = r.RunMethod2("divideMessage", pm, "java.lang.String")
r.RunMethod4("sendMultipartTextMessage", Array As Object(tell, Null, parts, Null, Null), Array As String("java.lang.String", "java.lang.String", "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))