How to create a command button and assign code to it using VBA?

Hello everyone,

I am using VBA code to create a command button on a sheet:

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=190.5, Top:=38.25, Width:=97.5, Height:=20.25).Select

Does anybody know how to assign code to OnClick event to the button using VBA?

Any help appreciated.
surotkin