如何提取Msgbox中的值
Private Sub Command1_Click()
Dim ID As Object
Set ID = CreateObject( "wscript.shell ")
MsgBox ID.regread( "HKLM\SYSTEM\CurrentControlSet\Services\Parameters\Tcpip\DhcpIPAddress ")
End Sub

如何把以上ID的键值提出来，显示在一个TEXT框中？简单点直接把DhcpIPAddress的值显示在TEXT框中。

[解决办法]
晕

Private Sub Command1_Click()
Dim ID As Object
Set ID = CreateObject( "wscript.shell ")
Text1.Text = ID.regread( "HKLM\SYSTEM\CurrentControlSet\Services\Parameters\Tcpip\DhcpIPAddress ")
End Sub