Application.PicasToPoints (Word)

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

PicasToPoints (Picas)

Picas: The pica value to be converted to points.

With ActiveDocument.PageSetup.LineNumbering 
 .Active = True 
 .DistanceFromText = PicasToPoints(4) 
End With