可不可以在VB中做一个51job的搜索工具?

新建标准exe
添加一个command1和一个text1
Private Sub Command1_Click()
searchstr = "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.baidu.com/s?wd=" + Text1.Text + " " + "site:search.51job.com"
Shell searchstr, vbNormalFocus
End Sub