怎么提取Msgbox中的值

2012-02-22

如何提取Msgbox中的值PrivateSubCommand1_Click()DimIDAsObjectSetIDCreateObject( wscript.shell )Msg

如何提取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