Application.PointsToLines (Word)

Converts a measurement from points to lines (1 line = 12 points). Returns the converted measurement as a Single.

PointsToLines (Points)

Points: The measurement, in points.

MsgBox PointsToLines(Selection.Paragraphs(1).LineSpacing) _ 
 & " lines"