[VBA] Dimension style not working

If I select a dimension then change dimension style it won't apply. I have to write -DIMSTYLE then APPLY and select dimensions to change dimstyle. However in VBA setting dimension style to GeneralDimension.DimensionStyle doesn't update the dimensions. Why is that? How to apply dimension style in VBA? With Application.RunCommand ?