您可以使用Windows API函數ShellExecute來執行此操作：

Option Explicit

Private Declare Function ShellExecute _

Lib "shell32.dll" Alias "ShellExecuteA" ( _

ByVal hWnd As Long, _

ByVal Operation As String, _

ByVal Filename As String, _

Optional ByVal Parameters As String, _

Optional ByVal Directory As String, _

Optional ByVal WindowStyle As Long = vbMinimizedFocus _

) As Long

Public Sub OpenUrl()

Dim lSuccess As Long

lSuccess = ShellExecute(0, "Open", "www.google.com")

End Sub

關于安全性的簡短說明：如果URL來自用戶輸入，請確保嚴格驗證該輸入，因為ShellExecute將執行具有用戶權限的任何命令，如果用戶是管理員，則將執行格式c：。