Private Sub Command1_Click()
    Dim strOpen
    strOpen = Shell("explorer.exe " & Text1, 1)
End Sub
 
Private Sub Form_Load()
    Text1 = "http://www.luyouqiwo.com"
End Sub

Option Explicit
    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
    Dim strUrl As String
     
Private Sub OpenUrl(tUrl As String)
    ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0
End Sub
 
Private Sub Command1_Click()
    strUrl = Text1.Text
    OpenUrl (strUrl)
End Sub
 
Private Sub Form_Load()
    Text1 = "http://zhidao.baidu.com/"
End Sub