This example adjusts the position of the command bar named "Custom" by moving it to the left 110 pixels more than the default, and it makes this command bar the first to be docked by changing its row index to msoBarRowFirst.
Set myBar = CommandBars("Custom")
With myBar
.RowIndex = msoBarRowFirst
.Left = 140
End With