Private Function p1(x As Integer,y As Integer,z As Integer)