[C.Ingram]

try something like:

select case Zip
...
    case else:
        Dim String FirstTwo
        FirstTwo = Left(CStr(Zip), 2)
        select case FirstTwo
            case "04": 'Code...
            case "05": 'Code...
        end select
end select