Hola JorgeMC espero que no sea muy tarde para ayudarte... :sign0013:
La respuesta es simple en realidad:
Primero agregas la librería Phone(1.70)
Creas un objeto de la siguiente manera:
Sub Process_Globals
Dim SmsIntercept As SmsInterceptor
End Sub
Continuamos con la inicialización del objeto:
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
SmsIntercept.Initialize("SmsIntercept")
End Sub
Y ya para finalizar creamos el evento que se lanza al recibir el mensaje, este es completamente nuevo:
Sub SmsIntercept_MessageReceived(From As String, Body As String)
Msgbox(body,from)
End Sub
Cualquier pregunta o duda que tengas me avisas para tratar de ayudarte o resolverla.
Si funciona coloca el tag
[SOLUCIONADO] para ayudar a mas personas