Packet Sniffer in VB?

How could I sniff a packet for its destination. I don't really care what it contains, just where it is going.....like a firewall-type application.

Thanks!