Dim GP As New Geoprocessor
Dim CalcFieldTool As New CalculateField
CalcFieldTool.in_table = pFClass
CalcFieldTool.field = "Elevation"
CalcFieldTool.expression = "!RASTERVALU!"
CalcFieldTool.expression_type = "PYTHON"
CalcFieldTool.code_block = " "
GP.Execute(CalcFieldTool, Nothing)