[2008] active ip address

[uk_joker2003]

Hi All

I have tried searching but not coming up with what i need.

Below is the code i am using to get the IP address

Dim addrs() As IPAddress = Dns.GetHostAddresses(Dns.GetHostName)

        If addrs.Length > 0 Then
            TxtBxIP.Text = addrs(0).ToString
        End If

the problem is the first address is appearing as 169. so how can i only display the active IP address? In my case its addrs(1) but i am sharing the application so it might not always be (1)