Public Function ProvCode(tmpProv As String) As String
          tmpProv = Trim(tmpProv)
          Select Case tmpProv
           Case "Alberta"
           ProvCode = "AB"

           ' Inne prowincje i terytoria

           Case "Yukon"
           ProvCode = "YT"
           Case Else
           ProvCode = "Bd"
          End Select
 End Function