Public Shared Function GetAbbrFromState(ByVal StateName As String) As String
Select Case StateName
Case "Alabama" : Return "AL"
Case "Alaska" : Return "AK"
Case "Arizona" : Return "AZ"
Case "Arkansas" : Return "AR"
Case "California" : Return "CA"
Case "Colorado" : Return "CO"
Case "Connecticut" : Return "CT"
Case "Delaware" : Return "DE"
Case "District of Columbia" : Return "DC"
Case "Florida" : Return "FL"
Case "Georgia" : Return "GA"
Case "Hawaii" : Return "HI"
Case "Idaho" : Return "ID"
Case "Illinois" : Return "IL"
Case "Indiana" : Return "IN"
Case "Iowa" : Return "IA"
Case "Kansas" : Return "KS"
Case "Kentucky" : Return "KY"
Case "Louisiana" : Return "LA"
Case "Maine" : Return "ME"
Case "Maryland" : Return "MD"
Case "Massachusetts" : Return "MA"
Case "Michigan" : Return "MI"
Case "Minnesota" : Return "MN"
Case "Mississippi" : Return "MS"
Case "Missouri" : Return "MO"
Case "Montana" : Return "MT"
Case "Nebraska" : Return "NE"
Case "Nevada" : Return "NV"
Case "New Hampshire" : Return "NH"
Case "New Jersey" : Return "NJ"
Case "New Mexico" : Return "NM"
Case "New York" : Return "NY"
Case "None/Other" : Return "XX"
Case "North Carolina" : Return "NC"
Case "North Dakota" : Return "ND"
Case "Ohio" : Return "OH"
Case "Oklahoma" : Return "OK"
Case "Oregon" : Return "OR"
Case "Pennsylvania" : Return "PA"
Case "Rhode Island" : Return "RI"
Case "South Carolina" : Return "SC"
Case "South Dakota" : Return "SD"
Case "Tennessee" : Return "TN"
Case "Texas" : Return "TX"
Case "Utah" : Return "UT"
Case "Vermont" : Return "VT"
Case "Virginia" : Return "VA"
Case "Washington" : Return "WA"
Case "West Virginia" : Return "WV"
Case "Wisconsin" : Return "WI"
Case "Wyoming" : Return "WY"
Case Else : Return String.Empty
End Select
End Function
Public Function GetNameFromAbbr(ByVal Abbr As String) As String
Select Case Abbr.ToUpper
Case "AL" : Return "Alabama"
Case "AK" : Return "Alaska"
Case "AZ" : Return "Arizona"
Case "AR" : Return "Arkansas"
Case "CA" : Return "California"
Case "CO" : Return "Colorado"
Case "CT" : Return "Connecticut"
Case "DE" : Return "Delaware"
Case "DC" : Return "District of Columbia"
Case "FL" : Return "Florida"
Case "GA" : Return "Georgia"
Case "HI" : Return "Hawaii"
Case "ID" : Return "Idaho"
Case "IL" : Return "Illinois"
Case "IN" : Return "Indiana"
Case "IA" : Return "Iowa"
Case "KS" : Return "Kansas"
Case "KY" : Return "Kentucky"
Case "LA" : Return "Louisiana"
Case "ME" : Return "Maine"
Case "MD" : Return "Maryland"
Case "MA" : Return "Massachusetts"
Case "MI" : Return "Michigan"
Case "MN" : Return "Minnesota"
Case "MS" : Return "Mississippi"
Case "MO" : Return "Missouri"
Case "MT" : Return "Montana"
Case "NE" : Return "Nebraska"
Case "NV" : Return "Nevada"
Case "NH" : Return "New Hampshire"
Case "NJ" : Return "New Jersey"
Case "NM" : Return "New Mexico"
Case "NY" : Return "New York"
Case "XX" : Return "None/Other"
Case "NC" : Return "North Carolina"
Case "ND" : Return "North Dakota"
Case "OH" : Return "Ohio"
Case "OK" : Return "Oklahoma"
Case "OR" : Return "Oregon"
Case "PA" : Return "Pennsylvania"
Case "RI" : Return "Rhode Island"
Case "SC" : Return "South Carolina"
Case "SD" : Return "South Dakota"
Case "TN" : Return "Tennessee"
Case "TX" : Return "Texas"
Case "UT" : Return "Utah"
Case "VT" : Return "Vermont"
Case "VA" : Return "Virginia"
Case "WA" : Return "Washington"
Case "WV" : Return "West Virginia"
Case "WI" : Return "Wisconsin"
Case "WY" : Return "Wyoming"
Case Else : Return String.Empty
End Select
End Function