Sub Process_Globals
Dim SMSIntercept1 As SmsInterceptor
End Sun
Sub StartListening
SMSIntercept1.Initialize2("SI",99999)
ToastMessageShow("I am listening",False)
End Sub
Sub SI_MessageReceived(from As String, msg As String) As Boolean
If msg <> "?!?!?!?" then
'just pass on the phones normal sms app
end if
End Sub