Visual Basic para Aplicaciones - Caracteres comparacion

Saludos.....

Estoy haciendo una macro en Excel y tengo una columna que se llama "Depto" en la cual los datos son mas o menos asi:

Depto
65013
65013
65013
65041
65261
65261
66011
66461
66471
66731

Lo que quiero hacer es separa los que empiezan con 65 y 66 (los dos primeros caracteres).

Como le hago? cual seria la funcion en VBA que me permita ir comparando valor por valor?

Gracias

Algo como lo que sigue puede servirte.
No conozco lo que estás haciendo, por eso es muy escueto...

Dim a As Variant

a = 65013
a = Mid(a, 1, 2)

Select Case a
Case "65": a = 65
Case "66": a = 66
End Select

Saludos desde Baires, JuanC