VBA ouvrir une page firefox

Bonjour,

J'ai un code qui me permet d'ouvrir une page sur Internet Explorer.

Seulement je ne peux pas utiliser IE mais firefox ou chrome. Comment dois-je adapter mon code ci dessous?

Function coordonneesGPS(URL As String)

    Dim web As Object
    Set web = CreateObject("InternetExplorer.Application")
    web.Visible = True

        web.navigate URL
        Do While web.busy And web.readyState <> 4
        DoEvents
    Loop

    Pause (1)

    Dim redirection As String
    redirection = web.locationUrl

End Function

Merci d'avance

Agrimaman