Xpress Blog'

 On défini la fonction 
Function Wait(lngSeconds)
start=timer
  do
    i=timer
  loop until i-start>=lngSeconds
  Wait = Cstr(i-start)
End Function


Puis on l'utilise 
wait(2)

A noter que le travail sur html depuis vbs est aujourd’hui désactivé pour plus de sécurité,
préférer des librairies comme selenium et d'autres langages

Dim url
Set url= CreateObject("WScript.Shell")
url.Run "https://www.google.fr"

answer=MsgBox("La page web à été ouverte, vous pouvez naviguer",64,"Google")

Set objShell = CreateObject("Shell.Application")
objShell.WindowsSecurity