AdjustHardwareValue problem

Hello everybody,
In october, We have a strange problem with AdjustHardwareValue.
For instance, I've 5 machines variables (Power kW), before my problem, there was this AdjustHardwareValue for each of them :

VBA Code:
Public Function AdjustHardwareValue_0(obVar As Variable, vValue As Variant) As Double
Dim x As Long
x = vValue
AdjustHardwareValue_0 = Int(x)
If (x > 100) Then
AdjustHardwareValue_0 = Int(x / 25 + 0.5) * 25
End If
End Function

There was not problem, but one day, we've noticed that our values of variables were "0kW", and if we unselected the case AdjustHardwareValue, it was OK.
That's why I wonder what kind of thing could have that cause on AdjustHardwareValue.
For the moment, the case is unselected waiting for solution.
Thank you.
Julien.K

This is a migrated post! Originally posted on 30.11.2010 by user julienk. Please be aware that information can be outdated.