Due to a change in ArcGIS software here, a block of code no longer works (to calculate a field of a table, based on a condition). Is it pretty simple to convert a block of VBScript to a single line? This was my attempt (still not working):

Code:
Dim dblISOLEVEL As Double
Dim lngJoinCnt As Long
Dim dblZLEVEL as Double

lngJoinCnt = [Join_Count]
dblZLEVEL = [ZLEVEL]

if (lngJoinCnt = 1) and (dblZLEVEL = 0) then dblISOLEVEL = -1 elseif (lngJoinCnt > 1) and (dblZLEVEL = 0) then dblISOLEVEL = dblZLEVEL elseif (lngJoinCnt = 1) and (dblZLEVEL = 5) then dblISOLEVEL = 0 elseif (lngJoinCnt > 1) and (dblZLEVEL = 5) then dblISOLEVEL = dblZLEVEL else dblISOLEVEL = dblZLEVEL
end if
Can someone please help?