Hostent

In a nutshell I have the following code to parse the result of a DNS query:
VB Code:
CopyMemory udtHost, ByVal m_udtResolveTable(lngIndex).lngMemoryPointer, LenB(udtHost)    CopyMemory lngPointerToIP, ByVal udtHost.lngAddrressList, 4    CopyMemory barIP(0), ByVal lngPointerToIP, 4    CopyMemory lngRemoteHostAddress, ByVal lngPointerToIP, 4    m_udtResolveTable(lngIndex).strAddress = barIP(0) & "." & barIP(1) & "." & barIP(2) & "." & barIP(3)


What if the domain has multiple A records? Like google.com for example, how to I get them from the result? Want to make strAddressList() all the A records.