triangular pyramid solid

[nagatani.a]

Please give me the VBA code to create a triangular pyramid solid consisting of 4 vertices.