怎么提取Msgbox中的值

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