How to make a IP Config-Msgbox

Hi everyone, i'm trying to make some little things in vbs. normally i just "speak" Python yet, but i'm trying to learn vbs since some weeks. I want to make a nice little Windows Sidebargadget and there you can use vbs. so i made some buttons which give some informations about serialnumber etc. from my pc. the next thing i'd like to have is a button which makes a msgbox popup which looks like this:
IP-Address: [myip]
Subnetmask: [mysubnet]
Default Gateway: [gateway]

i find it really hard to get the right commands. I started my script like this:

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select IPAddress[]; IPSubnet[]; DHCPEnabled; DefaultIPGateway[] From Win32_NetworkAdapterConfiguration")
MsgBox (???)

but i'm not sure about if i made it right...
and i found this one in the holy huge inet:
Set oSh=CreateObject("WScript.Shell")
Set oEx=oSh.Exec("ipconfig /all")
Do While oEx.Status=0
WScript.Sleep 100
Loop
buf=Replace(oEx.StdOut.ReadAll,vbCrLf,"")
WScript.Echo buf
WScript.Quit

and it works well, but its not really nice done with all this dots and there are just to many informations...

Hope someone can help me.
When you have questions to ask, just ask
Aviris
 
Edit: Could it be, that I'm totally wrong in this part of the Forum?

THX for no help, ya noops!!!11!!1oneoneeleven

Wow that def won't get anyone to help you