Application VisualBasic Script

Sub faceID()
    CommandBars("MyToolbar").Controls(1).FaceId = 45
End Sub