Private Function GetCountryCode(ByVal HostName As String) As String Dim IPs() As System.Net.IPAddress = Nothing Dim Result As String = Nothing Try IPs = System.Net.Dns.GetHostAddresses(HostName) If Not IPs Is Nothing AndAlso IPs.Count > 0 Then Dim Adrs() As String = IPs(0).ToString.Split(".") If Adrs.Count = 4 Then Dim Addr As String = Adrs(3) & "." & Adrs(2) & "." & Adrs(1) & "." & Adrs(0) & ".cc.wariate.jp" With JHSoftware.DnsClient.Lookup(Addr, JHSoftware.DnsClient.RecordType.TXT) If .AnswerRecords.Count > 0 Then Result = .AnswerRecords(0).Data.Substring(1, 2) End If End With End If End If Catch ex As System.Exception End Try Return Result End Function