VBA to place data point at intersection of selected lines

I need some help on this.  I have a grid of lines/arcs that I need to be able to select and run the VBA and have it place a data point at the all the intersections of the selected elements.  I have done some reading online, but I dont know enough about VBA in Microstation to get started.  I have attached a screen shot of the grid I am working with.  Actually I am trying to locate these points and using the tracking tool in InRoads I need to find surface elevations at all the intersection points.  I think I can select the lines and then activate the tracking tool in InRoads and then run the VBA to place a data point at all the intersections.  Any help will be greatly appreciated.