Convert state abbreviations to full name with VBScript
I'm sure there is a better way to do this, but I was in a hurry.
Function ScriptedField Dim strState If "@@ORG:BusinessAddrState@@" = "AL" Then strState = "Alabama" ElseIf "@@ORG:BusinessAddrState@@" = "AK" Then strState = "Alaska" ElseIf "@@ORG:BusinessAddrState@@" = "AZ" Then strState = "Arizona" ElseIf "@@ORG:BusinessAddrState@@" = "AR" Then strState = "Arkansas" ElseIf "@@ORG:BusinessAddrState@@" = "CA" Then strState = "California" ElseIf "@@ORG:BusinessAddrState@@" = "CO" Then strState = "Colorado" ElseIf "@@ORG:BusinessAddrState@@" = "CT" Then strState = "Connecticut" ElseIf "@@ORG:BusinessAddrState@@" = "DE" Then strState = "Delaware" ElseIf "@@ORG:BusinessAddrState@@" = "FL" Then strState = "Florida" ElseIf "@@ORG:BusinessAddrState@@" = "GA" Then strState = "Georgia" ElseIf "@@ORG:BusinessAddrState@@" = "HI" Then strState = "Hawaii" ElseIf "@@ORG:BusinessAddrState@@" = "ID" Then strState = "Idaho" ElseIf "@@ORG:BusinessAddrState@@" = "IL" Then strState = "Illinois" ElseIf "@@ORG:BusinessAddrState@@" = "IN" Then strState = "Indiana" ElseIf "@@ORG:BusinessAddrState@@" = "IA" Then strState = "Iowa" ElseIf "@@ORG:BusinessAddrState@@" = "KS" Then strState = "Kansas" ElseIf "@@ORG:BusinessAddrState@@" = "KY" Then strState = "Kentucky" ElseIf "@@ORG:BusinessAddrState@@" = "LA" Then strState = "Louisiana" ElseIf "@@ORG:BusinessAddrState@@" = "ME" Then strState = "Maine" ElseIf "@@ORG:BusinessAddrState@@" = "MD" Then strState = "Maryland" ElseIf "@@ORG:BusinessAddrState@@" = "MA" Then strState = "Massachusetts" ElseIf "@@ORG:BusinessAddrState@@" = "MI" Then strState = "Michigan" ElseIf "@@ORG:BusinessAddrState@@" = "MN" Then strState = "Minnesota" ElseIf "@@ORG:BusinessAddrState@@" = "MS" Then strState = "Mississippi" ElseIf "@@ORG:BusinessAddrState@@" = "MO" Then strState = "Missouri" ElseIf "@@ORG:BusinessAddrState@@" = "MT" Then strState = "Montana" ElseIf "@@ORG:BusinessAddrState@@" = "NE" Then strState = "Nebraska" ElseIf "@@ORG:BusinessAddrState@@" = "NV" Then strState = "Nevada" ElseIf "@@ORG:BusinessAddrState@@" = "NH" Then strState = "New Hampshire" ElseIf "@@ORG:BusinessAddrState@@" = "NJ" Then strState = "New Jersey" ElseIf "@@ORG:BusinessAddrState@@" = "NM" Then strState = "New Mexico" ElseIf "@@ORG:BusinessAddrState@@" = "NY" Then strState = "New York" ElseIf "@@ORG:BusinessAddrState@@" = "NC" Then strState = "North Carolina" ElseIf "@@ORG:BusinessAddrState@@" = "ND" Then strState = "North Dakota" ElseIf "@@ORG:BusinessAddrState@@" = "OH" Then strState = "Ohio" ElseIf "@@ORG:BusinessAddrState@@" = "OK" Then strState = "Oklahoma" ElseIf "@@ORG:BusinessAddrState@@" = "OR" Then strState = "Oregon" ElseIf "@@ORG:BusinessAddrState@@" = "PA" Then strState = "Pennsylvania" ElseIf "@@ORG:BusinessAddrState@@" = "RI" Then strState = "Rhode Island" ElseIf "@@ORG:BusinessAddrState@@" = "SC" Then strState = "South Carolina" ElseIf "@@ORG:BusinessAddrState@@" = "SD" Then strState = "South Dakota" ElseIf "@@ORG:BusinessAddrState@@" = "TN" Then strState = "Tennessee" ElseIf "@@ORG:BusinessAddrState@@" = "TX" Then strState = "Texas" ElseIf "@@ORG:BusinessAddrState@@" = "UT" Then strState = "Utah" ElseIf "@@ORG:BusinessAddrState@@" = "VT" Then strState = "Vermont" ElseIf "@@ORG:BusinessAddrState@@" = "VA" Then strState = "Virginia" ElseIf "@@ORG:BusinessAddrState@@" = "WA" Then strState = "Washington" ElseIf "@@ORG:BusinessAddrState@@" = "WV" Then strState = "West Virginia" ElseIf "@@ORG:BusinessAddrState@@" = "WI" Then strState = "Wisconsin" ElseIf "@@ORG:BusinessAddrState@@" = "WY" Then strState = "Wyoming" End If ScriptedField=strState End Function