How to get the active DUN name in VB

I'm preaty a beginer.
If someone can help me get a VB code that shows
the name of the currently active DUN, while the computer
is connected to the Internet.

Thanks in advance, for your help.
Wein.