Change the miter limit used when creating a contour?

I know how to set it when creating a contour in a VBA macro. I'm trying to find out if there is a way to set it in the regular user interface.

Sub apply_contour()
Dim e As Effect
Dim s As Shape
Dim offset_dist As Double
Dim colOutline As Color
Dim colFill1 As Color
Dim colFill2 As Color

Set s = ActiveSelection

    offset_dist = 0.15
    Set colOutline = CreateRGBColor(0, 0, 0)
    Set colFill1 = CreateRGBColor(255, 0, 0)
    Set colFill2 = CreateRGBColor(255, 0, 0)

Set e = s.CreateContour
    With e.Contour
        .Direction = cdrContourOutside
        .Offset = offset_dist
         Steps = 1
        .OutlineColor = colOutline
        .FillColor = colFill1
        .FillColorTo = colFill2
        .SpacingAcceleration = 0
        .ColorAcceleration = 0
        .EndCapType = cdrContourButtCap
        .CornerType = cdrContourCornerMiteredBevel
        .MiterLimit = 1
    End With
End Sub