this execute ipconfig/all, u can change the commands, justgreat already posted for u.
Code:
Private Sub Command1_Click()
Shell "cmd.exe /k ipconfig/all", vbNormalFocus
End Sub