ShadowFormat.ForeColor (Word)

Returns or sets a ColorFormat object that represents the foreground color for the fill, line, or shadow.

Dim cftForeColor As ColorFormat
Set cftForeColor = Selection.Font.TextShadow.ForeColor