Yes, I think you are right Bry

I think it is the point that you are picking with the getpoint method that requires a Variant type

Then I think you would create another variable as Double

Ex:

`Dim llpnt as Variant 'Pick Lower Left Point`

Dim urpnt as Variant 'Pick Upper Right Point

Dim Mdpnt (0 to 2) as Double

llpnt (0) = Mdpnt (0): llpnt (1) = Mdpnt (1): llpnt (2) = Mdpnt (2)

urpnt (0) = Mdpnt (0): urpnt (1) = Mdpnt (1): urpnt (2) = Mdpnt (2)

mdpnt(0) = llpnt(0) + ((urpnt(0) - llpnt(0)) / 2) 'Midpoint (X) = The point in the far left direction - the point in the far right direction / 2

mdpnt(1) = llpnt(1) + ((urpnt(1) - llpnt(1)) / 2) 'Midpoint (Y) = The point in the far top direction - the point in the far bottom direction / 2

mdpnt(2) = 0

Is this more like it Bry?

AHHHHHHHHHHHHH Confusing!!

Thanks

Mark