How to use IF THEN to select a specific case (region)

Requirement:

The user has a few arrays made up of country codes, each array represents a region.

The user needs to use a select case statement to correctly select the correct region (array) for any given country code.

The user would like to have a country code and then using select case look inside each array and if it finds a match then thats the region?

Solution:

Code:

Sub a()
Origin = Cells(1, 1).Value
ASPA = "CN,AU,HK"
EMEA = "DE,SE,GB"
If InStr(ASPA, Origin) > 0 Then
    Region = "Asia"
ElseIf InStr(EMEA, Origin) > 0 Then
    Region = "Europe"
ElseIf Origin = "US" Then
    Region = "US"
End If
MsgBox Region
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by Patel.