This example sets the custom drop distance to 14 points, and specifies that the drop distance always be measured from the top. For the example to work, shape three must be a callout.
Set myDocument = Worksheets(1)
With myDocument.Shapes(3).Callout
.CustomDrop 14
.AutoAttach = False
End With