The DefaultServer property retrieves the list of local DNS servers. The list includes the 'Preferred DNS server' and the 'Alternate DNS server'. The list of servers is delimited by the Separator property. The queries are sent to the DNS Server.  Use the Server property to specify a new DNS server. 

The following sample displays the "Preferred DNS Server".

Dim n As New LookupNS
n.Separator = Chr(0)
MsgBox n.DefaultServer

The following sample displays the list of all local DNS servers:

Dim n As New LookupNS
MsgBox n.DefaultServer