我觉得你这个问题应该带个参数才对,应该用get方式吧!
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Label1_Click()
ShellExecute hWnd, "open", "http://zhidao.baidu.com?id="&id, vbNullString, vbNullString, conSwNormal
End Sub
"http://zhidao.baidu.com?id="&id,id为VB里的变量也就是那个文本框,你这样测试下即可!