Hola
Como la variable codigo es de tipo string, tienes que pasarle el texto correspondiente entre comillas, es decir:
Código:
Select Case (SEDE)
Case "ATE VITARTE":
Select Case (AREA)
Case "FINANZAS": codigo = "AF001"
Case "GERENCIA": codigo = "AG002"
Case "RECLAMOS": codigo ="AF003"
End Select
--Saludos--