Private Sub UserForm_Activate()
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
WebBrowser1.Visible = False
End Sub
Private Sub UserForm_Initialize()
WebBrowser1.Navigate "http://www.excel-downloads.com/"
End Sub