Field Calculator Help!

I have two fields. One of which contains post office numbers [post_offic] and another that will contain place names [PLACENAME]. I am attempting to take those post office numbers and populate the PLACENAME field, but with the actual place name. Here is what I have, but it just doesn't seem to be working for some reason. Getting the "There was a failure during processing" error. Any thoughts?

Thanks in advance!



Dim Output
Select Case Ucase([post_offic])
Case " "
Output = " "
Case "49009"
Output = "KALAMAZOO"
Case "49010"
Output = “ALLEGAN”
Case "49013"
Output = “BANGOR”
Case "49022"
Output = “BENTON HARBOR”
Case "49026"
Output = “BLOOMINGDALE”
Case "49027"
Output = “BREEDSVILLE”
Case "49038"
Output = “COLOMA”
Case "49043"
Output = “COVERT”
Case "49045"
Output = “DECATUR”
Case "49047"
Output = “DOWAGIAC”
Case "49055"
Output = “GOBLES”
Case "49056"
Output = “GRAND JUNCTION”
Case "49057"
Output = “HARTFORD”
Case "49064"
Output = “LAWRENCE”
Case "49065"
Output = “LAWTON”
Case "49067"
Output = “MARCELLUS”
Case "49071"
Output = “MATTAWAN”
Case "49078"
Output = "OTSEGO”
Case "49079"
Output = “PAW PAW”
Case "49087"
Output = “SCHOOLCRAFT”
Case "49090"
Output = “SOUTH HAVEN”
Case "49098"
Output = “WATERVLIET”
Case Else
Output = [post_offic]
End Select

[PLACENAME] = Output