Visual Basic - ipcong con vbs

Hola consulta como hago un .vbssript que me muestre en un msgbox la informacion del ipconfig.

de antemano gracias.

Hola Fabian:

coloca dos botones:(command1 y command2)
despues de dar click en el command1 da click en el command2 o en el vbs que esta en
el path c:\ip.vbs

aqui esta el code:

Private Sub Command1_Click()
creararchivodeip
crearvbs
End Sub

Sub creararchivodeip()
r = Shell("cmd /c ipconfig >c:\ip.txt")
End Sub

Sub crearvbs()
Open "c:\ip.vbs" For Output As #1
Print #1, "on error resume next"
Print #1, "Set ejecutar = CreateObject(" & """wscript.Shell""" & ")"
Print #1, "ejecutar.run(" & """c:\ip.txt""" & ")"
Close #1
End Sub

Sub ejecutarvbs()
Set ejecutar = CreateObject("wscript.shell")
ejecutar.run ("c:\ip.vbs")
End Sub

Private Sub Command2_Click()
ejecutarvbs
End Sub