Visual Basic - Problema facil de resolver, ayuda!

Hola amigos, necesito ayuda con esto:

tengo un boton en el fomulario que cuando lo apretas hace esto:

Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.algo.com"
WebBrowser1.Navigate "http://www.lala.com"
End Sub

yo qwuiero que entre la carga de una web y la otra haya una pausa de 3 segundos como puedo hacer??

osea quiero que termine de cargar una para comenzar con la otra.

saludos

Ivan

Hola

Puedes poner esto en medio de las dos líneas o meterlo en una función y poner la función en medio.

Dim t0 As Variant, t1 As Variant, t2 As Variant
t0 = Format(Now, "HH:mm:ss")
t1 = "00:00:01"
t2 = Format(TimeValue(t0) + TimeValue(t1), "HH:mm:ss")
Do
DoEvents
t0 = Format(Now, "HH:mm:ss")
Loop While t2 > t0

La variable t1 está a "00:00:01" si quieres que te espere 3 segundos la pones "00:00:03"

Saludos