'Производим вычитку первого адреса - подачи машины
    calculationlog += String.Format("{1}Колво адресов: {0}", arguments.OrderPoints.Count, vbCrLf)
    Dim AddressFrom As KeyValuePair(Of Integer, OrderCalculationPoint) 	' Зона первой точки маршрута
    Dim AddressTo As KeyValuePair(Of Integer, OrderCalculationPoint) 	' Зона последней точки маршрута    
    AddressFrom = arguments.OrderPoints.First()
    AddressTo = arguments.OrderPoints.Last()
    
    'Производим проверку адреса 
    calculationlog += String.Format("{3}Адрес откуда: {0}, {1}, {2}, {4}", AddressFrom.Value.TownName, AddressFrom.Value.StreetName, AddressFrom.Value.House, vbCrLf,AddressFrom.Value.Address)      
    calculationlog += String.Format("{3}Адрес куда: {0}, {1}, {2}, {4}", AddressTo.Value.TownName, AddressTo.Value.StreetName, AddressTo.Value.House, vbCrLf,AddressTo.Value.Address )          
    if (AddressFrom.Value.StreetName = "Крещатик ул." and AddressFrom.Value.House = "22") and
      (AddressTo.Value.StreetName = "терминал") then
      'Устанавливаем фиксированную сумму 200 грн
      paysum = 200
    End if