Sub SendTextMessage(PhoneNumber As String, Message As String)As Boolean
Dim SmsManager As PhoneSms ,r As Reflector, parts As Object
If PhoneNumber.Length>0 Then
Try
If Message.Length <= 160 Then
SmsManager.Send(PhoneNumber, Message)
Else
r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
parts = r.RunMethod2("divideMessage", Message, "java.lang.String")
r.RunMethod4("sendMultipartTextMessage", Array As Object(PhoneNumber, Null, parts, Null, Null), Array As String("java.lang.String", "java.lang.String", "java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
End If
Return True
Catch
End Try
End If
End Sub