strCobj
Dim strCobj as string If Mid ( [PointId],2,1 ) = 1 Then strCobj = "O"& Mid ( [PointId],3,3 ) elseif Mid ( [PointId],2,1 ) = 9 Then strCobj = "" elseif Mid ( [PointId],2,1 ) = 0 Then strCobj = "F"& Mid ( [PointId],3,3 ) end if
if PointId[1:2] == 1: strCobj = "O" + PointId[2:5] elif PointId[1:2] == 9: strCobj = "" elif PointId[1:2] == 0: strCobj = "F" + PointId[2:5]