Sub EnviaSMS (ParNumero As String, ParMensaje As String)
'
Dim lcSMS As JavaObject
Dim lcPort As Short = 90
Dim lcDestination As String = ParNumero
Dim Data() As Byte = ParMensaje.GetBytes("UTF8")
'
lcSMS = lcSMS.InitializeStatic("android.telephony.SmsManager").RunMethod("getDefault", Null)
lcSMS.RunMethod("sendDataMessage", Array(lcDestination, "", lcPort, Data, Null, Null))
'
End Sub