Try
                                Select Case SubChildEntry.SchemaClassName
                                    Case "Computer"
                                        Dim iphostentry As Net.IPHostEntry = _
                                          Net.Dns.GetHostEntry( _
                                          SubChildEntry.Name)
                                        For Each ipAddress As Net.IPAddress In _
                                        iphostentry.AddressList
                                            If ipAddress.AddressFamily = _
                                            System.Net.Sockets.AddressFamily.In_
                                            terNetwork Then
                                                Dim thisIp = ipAddress
                                                ListBox1.Items.Add(thisIp)
                                                Debug.WriteLine( _
                                                  SubChildEntry.Name)
                                            End If
                                        Next
                                End Select
                            Catch ex As Exception

Debug.WriteLine(SubChildEntry.Name)