código para abrir internet com vba

Para quem programa em VBA ai esta um código para abrir internet com vba. então vamos praticar.

pessoal comentem. deixem seus comentários

galera achei esse código na internet e para poder usar tem que ser colocado em um Módulo.

private declare function scriptinternet_
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 iAcesso as Long
iAcesso = ScriptInternet (0, "Open", "www.google.com.br")
end sub