Option Explicit
#If VBA7 Then
  Public Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As LongPtr, _
                                               ByVal lpOperation As String, ByVal lpFile As String, _
                                               ByVal lpParameters As String, ByVal lpDirectory As String, _
                                               ByVal nShowCmd As Long) As LongPtr
#Else
  Public 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
#End If
Public Sub NewShell(cmdLine As String)
  ShellExecute 1, "open", cmdLine, "", "", 1
lbl_Exit:
  Exit Sub
End Sub
Sub Test()
  NewShell "www.google.com"
End Sub