Function IncrementMeter(pointPV, factor, value) If (pointPV = "HHElecCons.PV") And (value > 0.95) Then value = value * 30 If ((Server.ParamValue(pointPV) + (factor * value)) > 1000000) Then IncrementMeter = Server.ParamValue(pointPV) + (factor * value) - 1000000 Else IncrementMeter = Server.ParamValue(pointPV) + (factor * value) End If End Function