Calculate X/Y Using VB or Python in a Model

Discussion created by gmarcello on Jul 5, 2011
Latest reply on Jul 11, 2011 by gmarcello
This VBA script calculates x/y values from the Shape field to another field. It used to work for me in 9.3 but doesn't work anymore for 10 because of the switch to VB/Python. How would I rewrite this in VB or Python to work in 10? The 'Calculate Geometry' function is useless to me because I want to use it in a model and 'Add X/Y' creates new fields rather than calculating existing ones.

Pre-Logic Script Code:
dim dblx as double
dim dbly as double
dim pPoint as Ipoint
set pPoint = [Shape]
dblx = pPoint.x
dbly = pPoint.y