Add this code to the top of your Module:
' This funcion is used to open the browser
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
This is the code that calls it:
'open the browser
Dim lSuccess As Long
lSuccess = ShellExecute(0, "Open", strUrl)