Attribute VB_Name = "ReadEarningsPerShare"