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)
'************************************************
'打开Web网页
'************************************************
Public Function GoToWeb(WebAddress As String) As Long
On Error GoTo ErrDescription
    Dim lRet As Long
    lRet = ShellExecute(0&, vbNullString, WebAddress, vbNullString, vbNullString, vbNormalFocus)
    GoToWeb = lRet
    Exit Function
ErrDescription:
    MsgBox err.Description
End Function