Hata decimaltal - eller rättare sagt hata regional settings som gör att man får olika decimaltecken beroende på datorns inställningar. Vi behöver en funktion som kollar upp vilket decimaltecken som gäller och gör replace till detta.
function myDecimalCrap (sNum)
sDec = mid(cstr(1/2),2,1)
sNum = replace(sNum, ".", sDec)
sNum = replace(sNum, ",", sDec)
if isnumeric (sNum) then
myDecimalCrap = Cdbl(sNum)
else
myDecimalCrap = -1
end if
end function
När du får resultatet från denna funktion är det bara att kontrollera om returen är större än eller lika med 1.