Calculadora de campo VB Script Codeblock ¿La sintaxis de la sentencia IF es incorrecta?

Question

No puedo averiguar por qué la sintaxis es incorrecta en Field Calculator ArcMap 10. El bloque de código completo es

Dim CapitalDia As Number
Dim TwagDia As Number
Dim X As Number

CapitalDia = [New_Pipe_S]
TwagDia = [DIAMETER_1]

If CapitalDia= 0 Then
 X = TwagDia
Else
 X = CapitalDia
End If

Y luego, la ventana inferior es

Final_Dia = 
X

Answer 1

El "as Number" es lo que causa el error. Sólo tiene que utilizar "dim X"

dim X

if [New_Pipe_S] = 0 then
 X = [DIAMETER_1]
else
 X = [New_Pipe_S]
end if