Dim PE As PhoneEvents
Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
Log("Status is " & State & ".")
If State = "RINGING" Then
If IncomingNumber = "++443219876543" and DateTime.Date(DateTime.now) > cTimeStopWork Then
------>FORWARD
End If
End If
End Sub