Sub BroadcastReceiver_OnReceive (Action As String, BroadcastIntent As Object)
If myintent.Action = "android.intent.action.NEW_OUTGOING_CALL" Then
If myintent.HasExtra("android.intent.extra.PHONE_NUMBER") Then
Dim callnumber As String = myintent.GetExtra("android.intent.extra.PHONE_NUMBER")
Log(callnumber)
End If
End If
End Sub