"       In the Pre-logic VBA Script Code window, enter the following code:

Dim dblX As Double
Dim dblY As Double
Dim sX as String
Dim sY as String
Dim sID as String
Dim pPoint As IPoint

Set pPoint = [Shape]
dblX = pPoint.X
dblY = pPoint.Y

dblX = Abs(dblX)
if dblX < 10 then
  sX = "00" & CStr(dblX)
elseif dblX < 100 then
  sX = "0" & CStr(dblX)
else
  sX = CStr(dblX)
endif
sX = Left(sX,8)
sX = Replace(sX,".","")

dblY = Abs(dblY)
if dblY < 10 then
  sY = "00" & CStr(dblY)
elseif dblY < 100 then
  sY = "0" & CStr(dblY)
else
  sY = CStr(dblY)
endif
sY = Left(sY,8)
sY = Replace(sY,".","")

"       In the bottom window, which lists the name of your field above it (e.g. "INDEXID ="), enter this line:

sX & "_" & sY
