How do I return to a variable the cell's fill effects and border properties?

See plenty of info on how to set a cell's fill and border. I however would like to know how to get the properties of a cell's gradient (both colors, shading style, and variant). I would also like to know how to get the border style. I just want to return the value to a variable for later comparison. Also I would need to know what to Dim the return variable as.

For example in cell A1 the color 1 is red, color 2 is white, shading style is Vertical and Variant is left side color 1, right side color 2. Border style is xlDashDot. How could I return these properties to variables?

Any help or clarification is appreciated. Thank you.

Thank you for the code. I can use this format to find border properties with Selection. Borders(xlEdgeLeft) and brdrvariable = .LineStyle. However, finding the two interior colors has proven more elusive. It appears as though Selection. Interior and getting .Pattern will return "4000" if there is a gradient. Getting both colors and the variant is more difficult (though .Gradient.Degree gives me some more clarification).

If anyone can provide further clarification on getting the two inner colors used to create a fill gradient and shading style, I would be much obliged. Thank you.