dim alt
Select Case [CONSTRU]
Case("I"): alt = 1
   Case("II"): alt= 2
   Case("III"): alt= 3
   Case("IV"): alt= 4
   Case("V"): alt= 5
   Case("VI"): alt= 6
   Case("VII"): alt= 7
   Case("VIII"): alt= 8
   Case("IX"): alt= 9
   Case("X"): alt= 10
   Case("XI"): alt= 11
   Case("XII"): alt= 12
   Case("XIII"): alt= 13
   Case("XIV"): alt= 14
   Case("XV"): alt= 15
   Case("XVI"): alt= 16
   Case("XVII"): alt= 17
   Case("XVIII"): alt= 18
   Case("XIX"): alt= 19
   Case("XX"): alt= 20
   Case("XXI"): alt= 21
   Case("XXII"): alt= 22
   Case("XXIII"): alt= 23
   Case("XXIV"): alt= 24
   Case("XXV"): alt= 25
   Case("XXVI"): alt= 26
   Case("XXVII"): alt= 27
   Case("XXVIII"): alt= 28
   Case("XXIX"): alt= 29
   Case("XXX"): alt= 30
   Case("XXXI"): alt= 31
   Case("XXXII"): alt= 32
   Case("XXXIII"): alt= 33
   Case("XXXIV"): alt= 34
   Case("XXXV"): alt= 35
   Case("XXXVI"): alt= 36
   Case("XXXVII"): alt= 37
   Case("XXXVIII"): alt= 38
   Case("XXXIX"): alt= 39
   Case("XXXX"): alt= 40
   Case("XXXXI"): alt= 41
   Case("XXXXII"): alt= 42
   Case("XXXXIII"): alt= 43
   Case("XXXXIV"): alt= 44
   Case("XXXXV"): alt= 45
   Case("XXXXVI"): alt= 46
   Case("XXXXVII"): alt= 47
   Case("XXXXVIII"): alt= 48
   Case("XXXXIX"): alt= 49
   Case("XXXXX"): alt= 50
   
   Case else: alt = 0
End Select

If InStr( [CONSTRU],"+I") Then alt=1
If InStr( [CONSTRU],"I+") Then alt=1
If InStr( [CONSTRU],"+II") Then alt=2
If InStr( [CONSTRU],"II+") Then alt=2
If InStr( [CONSTRU],"+III") Then alt=3
If InStr( [CONSTRU],"III+") Then alt=3
If InStr( [CONSTRU],"+IV") Then alt=4
If InStr( [CONSTRU],"IV+") Then alt=4
If InStr( [CONSTRU],"+V") Then alt=5
If InStr( [CONSTRU],"V+") Then alt=5
If InStr( [CONSTRU],"+VI") Then alt=6
If InStr( [CONSTRU],"VI+") Then alt=6
If InStr( [CONSTRU],"+VII") Then alt=7
If InStr( [CONSTRU],"VII+") Then alt=7
If InStr( [CONSTRU],"+VIII") Then alt=8
If InStr( [CONSTRU],"VIII+") Then alt=8
If InStr( [CONSTRU],"+IX") Then alt=9
If InStr( [CONSTRU],"IX+") Then alt=9
If InStr( [CONSTRU],"+X") Then alt=10
If InStr( [CONSTRU],"X+") Then alt=10
If InStr( [CONSTRU],"+XI") Then alt=11
If InStr( [CONSTRU],"XI+") Then alt=11
If InStr( [CONSTRU],"+XII") Then alt=12
If InStr( [CONSTRU],"XII+") Then alt=12
If InStr( [CONSTRU],"+XIII") Then alt=13
If InStr( [CONSTRU],"XIII+") Then alt=13
If InStr( [CONSTRU],"+XIV") Then alt=14
If InStr( [CONSTRU],"XIV+") Then alt=14
If InStr( [CONSTRU],"+XV") Then alt=15
If InStr( [CONSTRU],"XV+") Then alt=15
If InStr( [CONSTRU],"+XVI") Then alt=16
If InStr( [CONSTRU],"XVI+") Then alt=16
If InStr( [CONSTRU],"+XVII") Then alt=17
If InStr( [CONSTRU],"XVII+") Then alt=17
If InStr( [CONSTRU],"+XVIII") Then alt=18
If InStr( [CONSTRU],"XVIII+") Then alt=18
If InStr( [CONSTRU],"+XIX") Then alt=19
If InStr( [CONSTRU],"XIX+") Then alt=19
If InStr( [CONSTRU],"+XX") Then alt=20
If InStr( [CONSTRU],"XX+") Then alt=20
If InStr( [CONSTRU],"+XXI") Then alt=21
If InStr( [CONSTRU],"XXI+") Then alt=21
If InStr( [CONSTRU],"+XXII") Then alt=22
If InStr( [CONSTRU],"XXII+") Then alt=22
If InStr( [CONSTRU],"+XXIII") Then alt=23
If InStr( [CONSTRU],"XXIII+") Then alt=23
If InStr( [CONSTRU],"+XXIV") Then alt=24
If InStr( [CONSTRU],"XXIV+") Then alt=24
If InStr( [CONSTRU],"+XXV") Then alt=25
If InStr( [CONSTRU],"XXV+") Then alt=25
If InStr( [CONSTRU],"+XXVI") Then alt=26
If InStr( [CONSTRU],"XXVI+") Then alt=26
If InStr( [CONSTRU],"+XXVII") Then alt=27
If InStr( [CONSTRU],"XXVII+") Then alt=27
If InStr( [CONSTRU],"+XXVIII") Then alt=28
If InStr( [CONSTRU],"XXVIII+") Then alt=28
If InStr( [CONSTRU],"+XXIX") Then alt=29
If InStr( [CONSTRU],"XXIX+") Then alt=29
If InStr( [CONSTRU],"+XXX") Then alt=30
If InStr( [CONSTRU],"XXX+") Then alt=30
If InStr( [CONSTRU],"+XXXI") Then alt=31
If InStr( [CONSTRU],"XXXI+") Then alt=31
If InStr( [CONSTRU],"+XXXII") Then alt=32
If InStr( [CONSTRU],"XXXII+") Then alt=32
If InStr( [CONSTRU],"+XXXIII") Then alt=33
If InStr( [CONSTRU],"XXXIII+") Then alt=33
If InStr( [CONSTRU],"+XXXIV") Then alt=34
If InStr( [CONSTRU],"XXXIV+") Then alt=34
If InStr( [CONSTRU],"+XXXV") Then alt=35
If InStr( [CONSTRU],"XXXV+") Then alt=35
If InStr( [CONSTRU],"+XXXVI") Then alt=36
If InStr( [CONSTRU],"XXXVI+") Then alt=36
If InStr( [CONSTRU],"+XXXVII") Then alt=37
If InStr( [CONSTRU],"XXXVII+") Then alt=37
If InStr( [CONSTRU],"+XXXVIII") Then alt=38
If InStr( [CONSTRU],"XXXVIII+") Then alt=38
If InStr( [CONSTRU],"+XXXIX") Then alt=39
If InStr( [CONSTRU],"XXXIX+") Then alt=39
If InStr( [CONSTRU],"+XXXX") Then alt=40
If InStr( [CONSTRU],"XXXX+") Then alt=40
If InStr( [CONSTRU],"+XXXXI") Then alt=41
If InStr( [CONSTRU],"XXXXI+") Then alt=41
If InStr( [CONSTRU],"+XXXXII") Then alt=42
If InStr( [CONSTRU],"XXXXII+") Then alt=42
If InStr( [CONSTRU],"+XXXXIII") Then alt=43
If InStr( [CONSTRU],"XXXXIII+") Then alt=43
If InStr( [CONSTRU],"+XXXXIV") Then alt=44
If InStr( [CONSTRU],"XXXXIV+") Then alt=44
If InStr( [CONSTRU],"+XXXXV") Then alt=45
If InStr( [CONSTRU],"XXXXV+") Then alt=45
If InStr( [CONSTRU],"+XXXXVI") Then alt=46
If InStr( [CONSTRU],"XXXXVI+") Then alt=46
If InStr( [CONSTRU],"+XXXXVII") Then alt=47
If InStr( [CONSTRU],"XXXXVII+") Then alt=47
If InStr( [CONSTRU],"+XXXXVIII") Then alt=48
If InStr( [CONSTRU],"XXXXVIII+") Then alt=48
If InStr( [CONSTRU],"+XXXXIX") Then alt=49
If InStr( [CONSTRU],"XXXXIX+") Then alt=49
If InStr( [CONSTRU],"+XXXXX") Then alt=50
If InStr( [CONSTRU],"XXXXX+") Then alt=50

If InStr( [CONSTRU],"+I+") Then alt=1
If InStr( [CONSTRU],"+II+") Then alt=2
If InStr( [CONSTRU],"+III+") Then alt=3
If InStr( [CONSTRU],"+IV+") Then alt=4
If InStr( [CONSTRU],"+V+") Then alt=5
If InStr( [CONSTRU],"+VI+") Then alt=6
If InStr( [CONSTRU],"+VII+") Then alt=7
If InStr( [CONSTRU],"+VIII+") Then alt=8
If InStr( [CONSTRU],"+IX+") Then alt=9
If InStr( [CONSTRU],"+X+") Then alt=10
If InStr( [CONSTRU],"+XI+") Then alt=11
If InStr( [CONSTRU],"+XII+") Then alt=12
If InStr( [CONSTRU],"+XIII+") Then alt=13
If InStr( [CONSTRU],"+XIV+") Then alt=14
If InStr( [CONSTRU],"+XV+") Then alt=15
If InStr( [CONSTRU],"+XVI+") Then alt=16
If InStr( [CONSTRU],"+XVII+") Then alt=17
If InStr( [CONSTRU],"+XVIII+") Then alt=18
If InStr( [CONSTRU],"+XIX+") Then alt=19
If InStr( [CONSTRU],"+XX+") Then alt=20
If InStr( [CONSTRU],"+XXI+") Then alt=21
If InStr( [CONSTRU],"+XXII+") Then alt=22
If InStr( [CONSTRU],"+XXIII+") Then alt=23
If InStr( [CONSTRU],"+XXIV+") Then alt=24
If InStr( [CONSTRU],"+XXV+") Then alt=25
If InStr( [CONSTRU],"+XXVI+") Then alt=26
If InStr( [CONSTRU],"+XXVII+") Then alt=27
If InStr( [CONSTRU],"+XXVIII+") Then alt=28
If InStr( [CONSTRU],"+XXIX+") Then alt=29
If InStr( [CONSTRU],"+XXX+") Then alt=30
If InStr( [CONSTRU],"+XXXI+") Then alt=31
If InStr( [CONSTRU],"+XXXII+") Then alt=32
If InStr( [CONSTRU],"+XXXIII+") Then alt=33
If InStr( [CONSTRU],"+XXXIV+") Then alt=34
If InStr( [CONSTRU],"+XXXV+") Then alt=35
If InStr( [CONSTRU],"+XXXVI+") Then alt=36
If InStr( [CONSTRU],"+XXXVII+") Then alt=37
If InStr( [CONSTRU],"+XXXVIII+") Then alt=38
If InStr( [CONSTRU],"+XXXIX+") Then alt=39
If InStr( [CONSTRU],"+XXXX+") Then alt=40
If InStr( [CONSTRU],"+XXXXI+") Then alt=41
If InStr( [CONSTRU],"+XXXXII+") Then alt=42
If InStr( [CONSTRU],"+XXXXIII+") Then alt=43
If InStr( [CONSTRU],"+XXXXIV+") Then alt=44
If InStr( [CONSTRU],"+XXXXV+") Then alt=45
If InStr( [CONSTRU],"+XXXXVI+") Then alt=46
If InStr( [CONSTRU],"+XXXXVII+") Then alt=47
If InStr( [CONSTRU],"+XXXXVIII+") Then alt=48
If InStr( [CONSTRU],"+XXXXIX+") Then alt=49
If InStr( [CONSTRU],"+XXXXX+") Then alt=50
If InStr( [CONSTRU],"+XXXXX+") Then alt=50
__esri_field_calculator_splitter__
alt