DIM hSettings AS Settings DIM aVariant AS Variant hSettings [ Key AS String [ , Default AS Variant ] ] = aVariant