Ayuda urgente

[jcubas]

Hola amigos necesito de su ayuda urgentemente....
Tengo el siguiente código, del cual quiero que me salga impreso en pantalla
el "codigo del area" el cual no se pq no me esta saliendo...

Dim SEDE As String
Dim AREA As String
Dim codigo As String




Private Sub Command1_Click()
Cls
SEDE = UCase(InputBox("INGRESE LA SEDE: "))
AREA = UCase(InputBox("INGRESE EL AREA DONDE LABORA: "))

Select Case (SEDE)
Case "ATE VITARTE":
Select Case (AREA)
Case "FINANZAS": codigo = AF001
Case "GERENCIA": codigo = AG002
Case "RECLAMOS": codigo = AF003
End Select

Case "LAS BEGONIAS":
Select Case (AREA)
Case "ATENCION AL CLIENTE": codigo = LA001
Case "CONTABILIDAD": codigo = LC002
Case "MARKETING": codigo = LM003
Case "RECURSOS HUMANOS": codigo = LR004
End Select

Case "SURCO":
Select Case (AREA)
Case "RECURSOS HUMANOS": codigo = SR001
Case "VENTAS": codigo = SV002
End Select
End Select

Print "LA SEDE ES "; SEDE; " EL CODIGO DE AREA ES: "; codigo


End Sub