Function HexToDec(sHexStr)
            HexToDec = CLng("&H" & Trim(sHexStr))
End Function