Get dimesions  according to X, Y and Z axes of a selected face

Hello my friends, is it possible to get the dimesions ( length and width ) of a selected face ( flat or cylindrical ) using vba codes ? thank you