I added this function to my project:
Sub SendMultipartTextMessage(Number As String, Message As String, SubscriptionId As Int)
    Dim r As Reflector
    r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getSmsManagerForSubscriptionId", Array As Object(SubscriptionId), Array As...