Sub Main Dim sPage as String Internet.OpenPage "www.tradium.nl" Wait 3 'seconds 'refresh page Internet.Refresh Wait 3 'seconds Internet.ClosePage End Sub