求高手解答

高手都不愿回答吗

Option Explicit
Dim Ws As Object
Private Sub Command1_Click() *搜索
Dim TxtSearch As String
TxtSearch = Text1.Text
Ws.Run "http://www.baidu.com/s?word=" & TxtSearch
End Sub
Private Sub Form_Load()
Set Ws = CreateObject("WScript.Shell")
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set Ws = Nothing
End Sub