Sub SendSms(PhoneNumber As String, Text As String)
Try
Dim ps As PhoneSms
Dim r As Reflector
r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
r.RunMethod4("sendTextMessage", Array As Object(PhoneNumber, Null, Text, Null, Null), _
Array As String("java.lang.String", "java.lang.String", "java.lang.String", _
"android.app.PendingIntent", "android.app.PendingIntent"))
ToastMessageShow("Text was sent to " & PhoneNumber & ".",False)
Catch
ToastMessageShow("The text was not sent to " & PhoneNumber & ".",False)
End Try
End Sub