Criar Botão para abrir um site

Olá pessoal, tenho um Formulário que uso como Dashboard. Esse formulário contem varios botões para abrir pastas no computador, arquivos e outros.
Preciso criar um botão de comando que ao clicar, abra um determinado site na internet.
Já tentei várias opções mas sem sucesso. Alguem pode me ajudar?

Olá Cleber,

Tente isso:

Código:



Private Sub btnAbreWeb_Click()
Dim ie As Object

    '-- Instancia o objeto do tipo Internet Explorer
    Set ie = CreateObject("InternetExplorer.Application")
    
    '-- Navega na pagina informada
    ie.Navigate "https://www.maximoaccess.com/"
    
    '-- Exibe navegador
    ie.Visible = True


End Sub



Att,

Alexandre Fim

Olá Alexandre, dessa forma funcionou, mas eu queria que ele abrisse o site com o Microsoft Edge, pois é nele que trabalho os links.
Até tentei substituir o "ie" pelo "msedge" mas da erro. Se puder me ajudar nessa parte também, fico grato. Obrigado.

Olá Avelino Sampaio, realmente funcionou. Como não havia pensado no Chat GPT? Muito Obrigado pela ajuda.