' Convert from pints to cubic decimeters, and vice versaFunction PintsToCubicDecimeters(ByVal pints As Double) As Double Return pints * 0.568End FunctionFunction CubicDecimetersToPints(ByVal cuDec As Double) As Double Return cuDec / 0.568End Function