VBA AutoCAD // Inserting Block to Midpoint of (p1,p2) Points & Divide (p1,p2) Distances and Insert Blocks

Question

I\'m looking for inserting block to the midpoint of two points that I selected (p1,p2). However, I\'m having some troubles and it should be simple but it\'s not working.