ISPostCode.Regions

Example

Display some information about the post code, including its regions, their codes, names, and IDs.

Dim aPostCode
Dim aRegions, aRegion
Dim aMessage
Dim i 

set aPostCode = Profile.LookupPostCode("", "Mara", "CAN", "BC")
if aPostCode is nothing then
  exit sub
end if
set aRegions = aPostCode.Regions
  
aMessage =_
  "Country Code: " & VbTab & aPostCode.CountryCode & vbNewLine &_
  "Address 2: " & VbTab & aPostCode.Address2 & vbNewLine &_
  "Address 3: " & VbTab & aPostCode.Address3 & vbNewLine &_
  "Country Code: " & VbTab & aPostCode.CountryCode & vbNewLine &_
  "Post Code ID: " & VbTab & aPostCode.ID & vbNewLine &_
  "Latitude: " & VbTab & aPostCode.Latitude & vbNewLine &_ 
  "Longitude: " & VbTab & aPostCode.Latitude & vbNewLine &_     
  "Postal Code: "  & VbTab & aPostCode.PostalCode & vbNewLine &_
  "State Code: "  & VbTab & aPostCode.StateCode & vbNewLine &_
  "Regions Count: " & VbTab & aRegions.Count
  
for i = 0 to aRegions.Count - 1
  set aRegion = aPostCode.Regions.Item(i)
  aMessage = aMessage & vbNewLine &_
    "--- Region " & (i + 1) & " ---- " & vbNewLine &_  
    "    Code: " & VbTab & VbTab & aRegion.Code & VbTab & vbNewLine &_   
    "    Name: " & VbTab & aRegion.Name & vbNewLine &_  
    "    ID: " & VbTab & VbTab & aRegion.ID
next

Profile.MsgBox(aMessage)