How du Case x twice? (Select Case)

Hi,

i wonder how I can case for ex. x twice? Right not I have the script:

Function Namex(Ex)

Select Case Ex
Case A
Namex = "Albert"
Case B
Namex = "Bernard"
Case C
Namex = "Cris"
Case D
Namex = "David"
End Select 
End Function

For example I want to:

Case A
Namex = "Albert" And Namex = "Avery"

Each Case A = Albert and Avery

Thnx in advance!