Function checkDX (ByVal callsign As String) As String

callsign = UCase$(callsign)


Select Case Left$(callsign, 1)
Case "1":
      checkDX = "SOV.Malta"
Case "2":
    Select Case Mid$(callsign, 2, 1)
    Case "D": checkDX = "Isle of Man"
    Case "I": checkDX = "Northern Ireland"
    Case "J": checkDX = "Jersey"
    Case "M": checkDX = "Scotland"
    Case "U": checkDX = "Guernsey"
    Case "W": checkDX = "Wales"
    Case "E": checkDX = "England"
    End Select
Case "3":
    Select Case Mid$(callsign, 2, 1)
    Case "A": checkDX = "Monaco"
    Case "B": Select Case Mid$(callsign, 3, 1)
                Case "6", "7": checkDX = "Agalega & St. Brandon"
                Case "8": checkDX = "Mauritius"
                Case "9": checkDX = "Rodrigues I"
               End Select
    Case "C":
        If Mid$(callsign, 3, 1) = "0" Then
            checkDX = "Annobon I."
        Else
            checkDX = "Eq. Guinea"
        End If
    Case "D":
        Select Case Mid$(callsign, 3, 1)
            Case "2":   checkDX = "Fiji,Conway Reef,Rotuma I."
            Case "4":   checkDX = "Swaziland"
         End Select
    Case "E", "F": checkDX = "Panama"
    Case "G":   checkDX = "Chile"
    Case "H": checkDX = "China"
    Case "V":   checkDX = "Tunisia"
    Case "W":   checkDX = "Vietnam"
    Case "X":   checkDX = "Guinea"
    Case "Y":   checkDX = "Bouvet,Peter 1 I."
    Case "Z":   checkDX = "Poland"
    End Select
Case "4":
    Select Case Mid$(callsign, 2, 1)
    Case "A" To "C": checkDX = "Mexico"
    Case "D" To "I": checkDX = "Philippines"
    Case "J", "K": checkDX = "Azerbaijan"
    Case "L": checkDX = "Georgia"
    Case "M":  checkDX = "Venezuela"
    Case "N", "O": checkDX = "Yugoslavia"
    Case "P" To "S": checkDX = "Sri Lanka"
    Case "T": checkDX = "Peru"
    Case "U":
        Select Case Right$(callsign, 3)
        Case "ITU": checkDX = "ITU HQ"
        Case "1UN": checkDX = "UN HQ"
        Case "VIC": checkDX = "Austria"
        End Select
    Case "V": checkDX = "Haiti"
    Case "X", "Z": checkDX = "Israel"
    End Select
Case "5":
    Select Case Mid$(callsign, 2, 1)
    Case "A": checkDX = "Libya"
    Case "B": checkDX = "Cyprus"
    Case "C", "G": checkDX = "Morocco"
    Case "H", "I": checkDX = "Tanzania"
    Case "J", "K": checkDX = "Columbia"
    Case "L", "M": checkDX = "Liberia"
    Case "N", "O": checkDX = "Nigeria"
    Case "P", "Q": checkDX = "Denmark"
    Case "R", "S": checkDX = "Madagascar"
    Case "T": checkDX = "Mauritania"
    Case "U": checkDX = "Niger"
    Case "V": checkDX = "Togo"
    Case "W": checkDX = "Western Samoa"
    Case "X": checkDX = "Uganda"
    Case "Y", "Z": checkDX = "Kenya"
    End Select
Case "6":
    Select Case Mid$(callsign, 2, 1)
    Case "A", "B": checkDX = "Egypt"
    Case "C": checkDX = "Syria"
    Case "D" To "J": checkDX = "Mexico"
    Case "K" To "N": checkDX = "South Korea"
    Case "O": checkDX = "Somalia"
    Case "P": checkDX = "Pakistan"
    Case "T" To "U": checkDX = "Sudan"
    Case "V" To "W": checkDX = "Senegal"
    Case "X": checkDX = "Madagascar"
    Case "Y": checkDX = "Jamaica"
    Case "Z": checkDX = "Liberia"
    End Select
Case "7":
     Select Case Mid$(callsign, 2, 1)
     Case "A" To "I": checkDX = "Indonesia"
     Case "J" To "N":
        If Mid$(callsign, 2, 2) = "J1" Then
         checkDX = "Minami Torishinma or Ogasawara"
        Else
         checkDX = "Japan"
        End If
     Case "O":   checkDX = "Yemen"
     Case "P":  checkDX = "Lesotho"
     Case "Q":  checkDX = "Malawi"
     Case "S": checkDX = "Sweden"
     Case "R", "T" To "Y": checkDX = "Algeria"
     Case "Z": checkDX = "Saudia Arabia"
     End Select
Case "8":
    Select Case Mid$(callsign, 2, 1)
    Case "A" To "I": checkDX = "Indonesia"
    Case "J" To "N": checkDX = "Japan"
    Case "O": checkDX = "Botswana"
    Case "P": checkDX = "Barbados"
    Case "Q": checkDX = "Maldives"
    Case "R": checkDX = "Guyana"
    Case "S": checkDX = "Sweden"
    Case "T": checkDX = "India"
    Case "Z": checkDX = "Saudia Arabia"
    End Select
Case "9":
    Select Case Mid$(callsign, 2, 1)
    Case "A":  checkDX = "Croatia"
    Case "B" To "D": checkDX = "Iran"
    Case "E" To "F": checkDX = "Ethiopia"
    Case "G":  checkDX = "Ghana"
    Case "H":   checkDX = "Malta"
    Case "I", "J": checkDX = "Zambia"
    Case "K": checkDX = "Kuwait"
    Case "L": checkDX = "Sierra Leone"
    Case "M":
        Select Case Mid$(callsign, 3, 1)
        Case "2", "4": checkDX = "West Malaysia"
        Case "6", "8": checkDX = "East Malaysia"
        End Select
    Case "N": checkDX = "Nepal"
    Case "O": checkDX = "Congo"
    Case "Q" To "T": checkDX = "Dem. Rep. Congo"
    Case "U": checkDX = "Burundi"
    Case "V": checkDX = "Singapore"
    Case "X": checkDX = "Rwanda"
    Case "Y", "Z": checkDX = "Trinidad & Tobago"
    End Select
Case "A":
    Select Case Mid$(callsign, 2, 1)
    Case "2":  checkDX = "Botswana"
    Case "3":  checkDX = "Tonga"
    Case "4":  checkDX = "Oman"
    Case "5":  checkDX = "Bhutan"
    Case "6":  checkDX = "UAE"
    Case "7":  checkDX = "Qatar"
    Case "8": checkDX = "Liberia"
    Case "9":   checkDX = "Bahrain"
    Case "A" To "L":
        Select Case Mid$(callsign, 2, 2)
        Case "C6": checkDX = "Palau"
        Case "G4": checkDX = "Guantanamo Bay"
        Case "H0": checkDX = "Mariana Is."
        Case "H1": checkDX = "Baker & Howland Is."
        Case "H3": checkDX = "Johnson Is."
        Case "H5":
            If Mid$(callsign, 2, 3) = "H5K" Then
                checkDX = "Kingman Reef"
            Else
                checkDX = "Palmyra and Jarvis IS>"
            End If
        Case "H6", "H7":
            If Mid$(callsign, 2, 3) = "H7K" Then
                checkDX = "Kure I."
            Else
                checkDX = "Hawaii"
            End If
        Case "H8": checkDX = "American Samoa"
        Case "H9": checkDX = "Wake I."
        Case "L7": checkDX = "Alaska"
        Case Else: checkDX = "US"
        End Select
    Case "M" To "O":
        Select Case Mid$(callsign, 3, 1)
        Case "6": checkDX = "Balearic I."
        Case "8": checkDX = "Canary I."
        Case "9": checkDX = "Ceuta & Melilla"
        Case Else: checkDX = "Spain"
        End Select
    Case "P" To "S":  checkDX = "Pakistan"
    Case "T" To "W": checkDX = "India, Andaman & Nicobar Is. or Lakshadweep Is."
    Case "X":
        Select Case Mid$(callsign, 3, 1)
        Case "0": checkDX = "Heard Is. or Macquarie Is."
        Case "9":
            Select Case Mid$(callsign, 4, 1)
            Case "C": checkDX = "Cocos-Keeling Is."
            Case "L": checkDX = "Lord Howe Is."
            Case "M": checkDX = "Mellish Reef"
            Case "N": checkDX = "Norfolk Is."
            Case "W": checkDX = "Willis Is."
            Case "X": checkDX = "Christmas IS."
            Case Else: checkDX = "Australia"
            End Select
        Case Else: checkDX = "Australia"
        End Select
    Case "Y" To "Z": checkDX = "Argentina"
    End Select
Case "B":
    Select Case Mid$(callsign$, 2, 1)
    Case "S"
        Select Case Mid$(callsign, 3, 1)
        Case "7": checkDX = "Scarborough Reef"
        End Select
    Case "V":
        If Mid$(callsign, 3, 2) = "9P" Then
            checkDX = "Pratas I."
        Else
            checkDX = "Taiwan"
        End If
    Case "Y", "T": checkDX = "China"
    End Select
Case "C":
    Select Case Mid$(callsign, 2, 1)
    Case "2":  checkDX = "Nauru"
    Case "3":  checkDX = "Andorra"
    Case "4":  checkDX = "Cyprus"
    Case "5":  checkDX = "Gambia"
    Case "6":  checkDX = "Bahamas"
    Case "8", "9": checkDX = "Mozambique"
    Case "A" To "D": checkDX = "Chile"
    Case "E":
        If Mid$(callsign, 3, 1) = "0" Then
            checkDX = "Easter I, Juan Fernadez I. or San Felix & San Ambrosio"
        ElseIf Mid$(callsign, 3, 1) = "9" Then
            checkDX = "Antarctica"
        Else
            checkDX = "Chile"
        End If
     Case "F" To "K", "Y", "Z":
        Select Case Mid$(callsign, 2, 2)
        Case "Y0": checkDX = "Sable I."
        Case "Y9": checkDX = "St.Paul I."
        Case Else: checkDX = "Canada"
        End Select
     Case "L", "M", "O": checkDX = "Cuba"
     Case "N": checkDX = "Morrocco"
     Case "P": checkDX = "Bolivia"
     Case "Q" To "T":
        If Mid$(callsign, 3, 1) = "3" Then
            checkDX = "Madeira I."
        Else
            checkDX = "Portugal"
        End If
     Case "U": checkDX = "Azores"
     Case "V" To "X": checkDX = "Uruguay"
     End Select
Case "D":
    Select Case Mid$(callsign, 2, 1)
    Case "2", "3": checkDX = "Angola"
    Case "4": checkDX = "Cape Verde"
    Case "5": checkDX = "Liberia"
    Case "6": checkDX = "Comoros"
    Case "7" To "9": checkDX = "South Korea"
    Case "A" To "R": checkDX = "Germany"
    Case "S" To "T": checkDX = "South Korea"
    Case "U" To "Z": checkDX = "Philippines"
    End Select
Case "E":
    Select Case Mid$(callsign, 2, 1)
    Case "2": checkDX = "Thailand"
    Case "3": checkDX = "Eritrea"
    Case "4": checkDX = "Palestine"
    Case "A" To "H":
        Select Case Mid$(callsign, 3, 1)
        Case "6": checkDX = "Balearic I."
        Case "8": checkDX = "Canary I."
        Case "9": checkDX = "Ceuta & Melilla"
        Case Else: checkDX = "Spain"
        End Select
    Case "I", "J": checkDX = "Ireland"
    Case "K": checkDX = "Armenia"
    Case "L": checkDX = "Liberia"
    Case "M" To "O": checkDX = "Ukraine"
    Case "P", "Q": checkDX = "Iran"
    Case "R": checkDX = "Moldova"
    Case "S": checkDX = "Estonia"
    Case "T": checkDX = "Ethiopia"
    Case "U", "V", "W": checkDX = "Belarus"
    Case "X": checkDX = "Kyrgyzstan"
    Case "Y": checkDX = "Tajikistan"
    Case "Z": checkDX = "Turkmenistan"
    End Select
Case "F":
    Select Case Mid$(callsign, 2, 1)
    Case "G": checkDX = "Guadelope"
    Case "J", "S": checkDX = "St. Martin"
    Case "H": checkDX = "Mayotte"
    Case "K": checkDX = "New Caledonia"
    Case "M": checkDX = "Martinque"
    Case "O": checkDX = "Austral, Clipperton, Fr. Polynesia, or Marquesas"
    Case "P": checkDX = "St.Pierre & Miquelon"
    Case "R":
        Select Case Right$(callsign, 2)
        Case "/G": checkDX = "GloriosoI."
        Case "/J": checkDX = "Juan De Nova, Europa"
        Case "/T": checkDX = "Tromelin I."
        Case Else: checkDX = "Reunion"
        End Select
    Case T:
        Select Case Mid$(callsign, 3, 2)
        Case "5W": checkDX = "Crozet I."
        Case "5X": checkDX = "Kerguelen I."
        Case "5Z": checkDX = "Amsterdam & St.Paul Is."
        End Select
    Case "W": checkDX = "Wallis & Futuna Is."
    Case "Y": checkDX = "French Guiana"
    Case Else: checkDX = "France"
    End Select
Case "G":
    Select Case Mid$(callsign, 2, 1)
    Case "D", "T": checkDX = "Isle of Man"
    Case "I", "N": checkDX = "Northern Ireland"
    Case "J", "H": checkDX = "Jersey"
    Case "M", "S": checkDX = "Scotland"
    Case "U", "P": checkDX = "Guernsey"
    Case "W", "C": checkDX = "Wales"
    Case "0" To "9", "X", "B": checkDX = "England"
    End Select

Case "H":
    Select Case Mid$(callsign, 2, 1)
    Case "2": checkDX = "Cyprus"
    Case "3": checkDX = "Panama"
    Case "4":
        If Mid$(callsign, 3, 1) = "0" Then
            checkDX = "Temotu Province"
        Else
            checkDX = "Solomon Is."
        End If
    Case "5": checkDX = "South Africa"
    Case "6", "7": checkDX = "Nicaragua"
    Case "8", "9": checkDX = "Panama"
    Case "A", "G": checkDX = "Hungary"
    Case "B", "E": checkDX = "Switzerland"
    Case "C", "D":
        If Mid$(callsign, 3, 1) = "8" Then
            checkDX = "Galapagos Is."
        Else
            checkDX = "Ecuador"
        End If
    Case "F": checkDX = "Poland"
    Case "H": checkDX = "Haiti"
    Case "I": checkDX = "Domincan Republic"
    Case "J", "K":
        If Mid$(callsign, 3, 1) = "0" Then
            checkDX = "Malepo I. or San Andres & Providencia"
        Else
            checkDX = "Columbia"
        End If
    Case "L": checkDX = "South Korea"
    Case "M": checkDX = "North Korea"
    Case "N": checkDX = "Iraq"
    Case "O", "P": checkDX = "Panama"
    Case "Q", "R": checkDX = "Honduras"
    Case "S": checkDX = "Thailand"
    Case "T":  checkDX = "Nicaragua"
    Case "U":  checkDX = "El Salvador"
    Case "V": checkDX = "Vatican"
    Case "W" To "Y": checkDX = "France"
    Case "Z": checkDX = "Saudi Arabia"
    End Select
Case "I":
    Select Case Mid$(callsign, 2, 2)
    Case "S0", "M0": checkDX = "Sardinia"
    Case Else: checkDX = "Italy"
    End Select
Case "J":
    Select Case Mid$(callsign, 2, 1)
    Case "2": checkDX = "Djibouti"
    Case "3": checkDX = "Grenada"
    Case "4": checkDX = "Greece"
    Case "5": checkDX = "Guinea-Bissau"
    Case "6": checkDX = "St. Lucia"
    Case "7": checkDX = "Dominica"
    Case "8": checkDX = "St. Vincent"
    Case "A" To "S":
        If Mid$(callsign, 2, 2) = "D1" Then
         checkDX = "Minami Torishinma or Ogasawara"
        Else
         checkDX = "Japan"
        End If
    Case "T" To "V": checkDX = "Mongolia"
    Case "W": checkDX = "Svalbard"
    Case "X": checkDX = "Jan Mayen"
    Case "Y": checkDX = "Jordan"
    Case "Z": checkDX = "Indonesia"
    End Select
Case "K", "W", "N":
    Select Case Mid$(callsign, 2, 2)
    Case "C6": checkDX = "Palau"
    Case "G4": checkDX = "Guantanamo Bay"
    Case "H0": checkDX = "Mariana Is."
    Case "H1": checkDX = "Baker & Howland Is."
    Case "H3": checkDX = "Johnson Is."
    Case "H5":
            If Mid$(callsign, 2, 3) = "H5K" Then
                checkDX = "Kingman Reef"
            Else
                checkDX = "Palmyra and Jarvis Is."
            End If
    Case "H6", "H7":
            If Mid$(callsign, 2, 3) = "H7K" Then
                checkDX = "Kure I."
            Else
                checkDX = "Hawaii"
            End If
    Case "H8": checkDX = "American Samoa"
    Case "H9": checkDX = "Wake I."
    Case "L7": checkDX = "Alaska"
    Case "P1": checkDX = "Navassa I"
    Case "P2": checkDX = " Virgin Is."
    Case "P3", "P4": checkDX = "Puerto Rico"
    Case "P5": checkDX = "Desecheo I."
    Case Else: checkDX = "US"
    End Select
Case "L":
    Select Case Mid$(callsign, 2, 1)
    Case "2" To "9": checkDX = "Argentina"
    Case "A" To "N": checkDX = "Norway"
    Case "O" To "W": checkDX = "Argentina"
    Case "X": checkDX = "Luxemborg"
    Case "Y": checkDX = "Lithuania"
    Case "Z": checkDX = "Bulgaria"
    End Select
Case "O":
    Select Case Mid$(callsign, 2, 1)
    Case "A" To "C": checkDX = "Peru"
    Case "D": checkDX = "Lebanon"
    Case "E": checkDX = "Austria"
    Case "F" To "J":
        Select Case Mid$(callsign, 2, 2)
        Case "J0": checkDX = "Market Reef"
        Case "H0":
            If Mid$(callsign, 4, 1) = "M" Then
                checkDX = "Market Reef"
            Else
                checkDX = "Aland Is."
            End If
        Case Else: checkDX = "Finland"
        End Select
     Case "K", "L": checkDX = "Czech Rep."
     Case "M": checkDX = "Slovak Rep."
     Case "N" To "T": checkDX = "Belgium"
     Case "X": checkDX = "Greenland"
     Case "Y": checkDX = "Faero I."
     Case "U", "V", "W", "Z": checkDX = "Denmark"
     End Select
Case "P":
    Select Case Mid$(callsign, 2, 1)
    Case "2": checkDX = "Papua New Guinea"
    Case "3": checkDX = "Cyprus"
    Case "4": checkDX = "Aruba"
    Case "5": checkDX = "North Korea"
    Case "A" To "I": checkDX = "Netherlands"
    Case "J":
        Select Case Mid$(callsign, 3, 1)
        Case "2", "4", "9": checkDX = "Bonaire, Curacao(Neth Antilles)"
        Case "5" To "8": checkDX = "St Maarten,Saba,St. Eustatius"
        End Select
    Case "K" To "O": checkDX = "Indonesia"
    Case "P" To "Y:"
        Select Case Mid$(callsign, 3, 2)
        Case "0F": checkDX = "Fernando de Noronha"
        Case "0S": checkDX = "St. Peter and St.Paul Rocks"
        Case "0T": checkDX = "Trinidade & Martim Vaz. Is."
        Case Else: checkDX = "Brazil"
        End Select
    Case "Z": checkDX = "Suriname"
    End Select
Case "R":
    Select Case Mid$(callsign, 2, 1)
    Case "1":
        Select Case Mid$(callsign, 3, 2)
        Case "FJ": checkDX = "Franz Josef Land"
        Case "MV": checkDX = "Malyj Vysotskij I."
        End Select
    Case "A" To "Z"
        Select Case Mid$(callsign, 3, 1)
        Case "1", "3", "4", "6": checkDX = "European Russia"
        Case "9", "0": checkDZ = "Asiatic Russia"
        End Select
    End Select
Case "S":
    Select Case Mid$(callsign, 2, 1)
    Case "0": checkDX = "Western Sahara"
    Case "2", "3": checkDX = "Banglasdesh"
    Case "4", "8": checkDX = "South Africa"
    Case "6": checkDX = "Singapore"
    Case "5": checkDX = "Slovenia"
    Case "7": checkDX = "Seychelles"
    Case "9": checkDX = "Sao Tome & Principe"
    Case "A" To "M": checkDX = "Sweden"
    Case "N" To "R": checkDX = "Poland"
    Case "S":
        Select Case Mid$(callsign, 3.1)
        Case "A" To "M": checkDX = "Egypt"
        Case "N" To "Z": checkDX = "Sudan"
        End Select
    Case "T": checkDX = "Sudan"
    Case "U": checkDX = "Egypt"
    Case "V", "Z":
        Select Case Mid$(callsign, 2, 2)
        Case "V5": checkDX = "Dodecanese"
        Case "V9": checkDX = "Crete"
        Case Else:
            If Right$(callsign, 2) = "/A" Then
             checkDX = "Mount Athos"
            Else
             checkDX = "Greece"
            End If
        End Select
     End Select
Case "T":
    Select Case Mid$(callsign, 2, 1)
    Case "2": checkDX = "Tuvalu"
    Case "3":
        Select Case Mid$(callsign, 3, 1)
        Case "0": checkDX = "W. Kiribati (Glibert Is.)"
        Case "1": checkDX = "C. Kiribati (Brit, Phoenic Is.)"
        Case "2": checkDX = "E. Kiribati (Line Is.)"
        Case "3": checkDX = "Banaba Is.(Ocean I.)"
        End Select
    Case "4": checkDX = "Cuba"
    Case "5": checkDX = "Somailia"
    Case "6": checkDX = "Afghanistan"
    Case "7": checkDX = "San Marino"
    Case "8": checkDX = "Palau"
    Case "9": checkDX = "Bosina-Herzegovvia"
    Case "A" To "C": checkDX = "Turkey"
    Case "F": checkDX = "Iceland"
    Case "G", "D": checkDX = "Guatemala"
    Case "H", "M", "O" To "Q", "V" To "X": checkDX = "France"
    Case "I", "E":
        If Mid$(callsign, 2, 2) = "I9" Then
            checkDX = "Cocos I."
        Else
            checkDX = "Costa Rica"
        End If
    Case "J": checkDX = "Cameroon"
    Case "K": checkDX = "Corsica"
    Case "L": checkDX = "Central Africa"
    Case "N": checkDX = "Congo"
    Case "R": checkDX = "Gabon"
    Case "S": checkDX = "Tunisia"
    Case "T": checkDX = "Chad"
    Case "U": checkDX = "Ivory Coast"
    Case "Y": checkDX = "Benin"
    Case "Z": checkDX = "Mali"
    End Select
Case "U":
    Select Case Mid$(callsign, 2, 1)
    Case "A" To "I"
        Select Case Mid$(callsign, 3, 1)
        Case "1", "3", "4", "6": checkDX = "European Russia"
        Case "9", "0": checkDZ = "Asiatic Russia"
        Case "2": checkDX = "Kaliningrad"
        End Select
    Case "J" To "M": checkDX = "Uzbekistan"
    Case "N" To "Q": checkDX = "Kazakhstan"
    Case "R" To "Z": checkDX = "Ukraine"
    End Select
Case "V":
    Select Case Mid$(callsign, 2, 1)
    Case "2": checkDX = "Antigua & Barbuda"
    Case "3": checkDX = "Belize"
    Case "4": checkDX = "St. Kitts and Nevis"
    Case "5": checkDX = "Namibia"
    Case "6": checkDX = "Micronesia"
    Case "7": checkDX = "Marshall Is."
    Case "8": checkDX = "Brunei"
    Case "9": checkDX = "South Africa"
    Case "A" To "G", "O", "X", "Y": checkDX = "Canada"
    Case "H" To "N", "Z":
        Select Case Mid$(callsign, 3, 1)
        Case "0": checkDX = "Heard Is. or Macquarie Is."
        Case "9":
            Select Case Mid$(callsign, 4, 1)
            Case "C": checkDX = "Cocos-Keeling Is."
            Case "L": checkDX = "Lord Howe Is."
            Case "M": checkDX = "Mellish Reef"
            Case "N": checkDX = "Norfolk Is."
            Case "W": checkDX = "Willis Is."
            Case "X": checkDX = "Christmas IS."
            Case Else: checkDX = "Australia"
            End Select
        Case Else: checkDX = "Australia"
        End Select
    Case "P":
        Select Case Mid$(callsign, 3, 1)
        Case "2":
            Select Case Mid$(callsign, 4, 1)
            Case "E": checkDX = "Anguilla"
            Case "M": checkDX = "Montserrat"
            Case "V": checkDX = "British Virgin Is."
            End Select
        Case "5": checkDX = "Turks and Caicos Is. or Jamaica"
        Case "6": checkDX = "Pitcairn Is."
        Case "8": checkDX = "Falklands, S.Georgia, S.Orkney, S.Sandwich, or S. Shetland"
        Case "9": checkDX = "Bermuda"
        End Select
    Case "Q":
        Select Case Mid$(callsign, 3, 1)
        Case "8", "9": checkDX = "Chagos Is. or Seychelles"
        End Select
    Case "R": checkDX = "Hong Kong"
    Case "S":
        Select Case Mid$(callsign, 3, 2)
        Case "9M": checkDX = "Maldives"
        End Select
    Case "U": checkDX = "India, Andaman & Nicobar Is. or Lakshadweep Is."
    End Select
Case "X":
    Select Case Mid$(callsign, 2, 1)
    Case "A" To "I":
        If Mid$(callsign, 3, 1) = "4" Then
         checkDX = "Revilla Gigedo"
        Else
         checkDX = "Mexico"
        End If
    Case "J" To "O": checkDX = "Canada"
    Case "P": checkDX = "Greenland"
    Case "Q" To "R": checkDX = "Chile"
    Case "T": checkDX = "Burkina Faso"
    Case "U": checkDX = "Cambodia"
    Case "V": checkDX = "Vietnam"
    Case "W": checkDX = "Laos"
    Case "X":
        Select Case Mid$(callsign, 3, 1)
        Case "9": checkDX = "Macao"
        Case Else: checkDX = "Portugal"
        End Select
    Case "Y", "Z": checkDX = "Myanmar"
    End Select
Case "Y":
    Select Case Mid$(callsign, 2, 1)
    Case "2": checkDX = "Germany"
    Case "A": checkDX = "Afghanistan"
    Case "B" To "H": checkDX = "Indonesia"
    Case "I": checkDX = "Iraq"
    Case "J": checkDX = "Vanuatu"
    Case "K": checkDX = "Syria"
    Case "L": checkDX = "Latvia"
    Case "M": checkDX = "Turkey"
    Case "N": checkDX = "Nicaragua"
    Case "O" To "R": checkDX = "Romania"
    Case "S": checkDX = "El Salvador"
    Case "T", "U", "Z": checkDX = "Yugosalvia"
    Case "V" To "Y":
        If Mid$(callsign, 2, 2) = "V0" Then
            checkDX = "Aves I."
        Else
            checkDX = "Venezuela"
        End If
    End Select
Case "Z":
    Select Case Mid$(callsign, 2, 1)
    Case "2": checkDX = "Zimbabwe"
    Case "3": checkDX = "Macedonia"
    Case "A": checkDX = "Albania"
    Case "B:"
        Select Case Mid$(callsign, 3, 1)
        Case "2": checkDX = "Gibraltar"
        End Select
    Case "C":
        Select Case Mid$(callsign, 3, 1)
        Case "4": checkDX = "UK SOV base on Cyprus"
        End Select
    Case "D":
        Select Case Mid$(callsign, 3, 1)
        Case "7": checkDX = "St. Helena"
        Case "8": checkDX = "Acension I."
        Case "9": checkDX = "Tristan da Cunha & Gough Is."
        End Select
    Case "F": checkDX = "Cayman Is."
    Case "K":
        Select Case Mid$(callsign, 3, 1)
        Case "1": checkDX = "N.Cook Is. or S.Cook Is. "
        Case "2": checkDX = "Niue"
        Case "3": checkDX = "Tokelau Is."
        Case Else: checkDX = "New Zealand"
        End Select
    Case "L" To "M":
        Select Case Mid$(callsign, 2, 2)
        Case "L7": checkDX = "Chatham Is."
        Case "L8": checkDX = "Kernadec Is."
        Case "L9": checkDX = "Auckland and Campbell Is."
        Case Else: checkDX = "New Zealand"
        End Select
    Case "P": checkDX = "Paraguay"
    Case "R" To "U":
        If Mid$(callsign, 2, 2) = "S8" Then
            checkDX = "Prince Edward and Marion Is."
        Else
            checkDX = "South Africa"
        End If
    Case "V" To "Z": checkDX = "Brazil"
    End Select
End Select
End Function