How to apply force in a direction using VBA Macro?

Hi All,

I want to do a simulation using VBA Macro and I am completely new to programming. I have a problem to define the force in the product. The force direction is parallel to the edge direction as shown in the picture. I have been looking for the example from the API help, but it does not help much. I have look into the Action Direction but there is no example how to apply this. Pleas help me to define this problem in VBA.

SolidworksApi macros