Arrays

Hej

Jeg har et problem med arrays. (der er sikkert smartere måder også)

Jeg har bynavn fra felt B5. Variant By. Dette bynavn skal findes i array A (giver vel et nummer ud) samme nummer skal så findes i array B (tilhørende emails) og skal så gemmes i varianten mail. Kan det lade sig gøre?

Sub test()

Dim By As Variant
Dim Mail As String
Dim A As Variant
Dim B As Variant
Dim C As Variant

Range("E5").Select
By = ActiveCell.Value

A = Array("6000 kolding", "6100 Haderslev", "8700 Horsens")
C = A(By)
B = Array("kolding@post.dk", "haderslev@post.dk", "Horsens@post.dk")
Mail = B(C)

Range("D15").Select
ActiveCell.Value = Mail

End Sub

Denne kode virker ikke, men håber der er nogen der kan hjælpe med at lave noget der virker..

På forhånd tak.

Mvh Michael.