Option Explicit

Dim ie

Set ie = CreateObject("InternetExplorer.Application")

On Error Resume Next

Sub WaitForLoad
Do While ie.busy
WScript.Sleep 500
Loop
End Sub

Sub OpenVideo
ie.navigate "http://p2sl.me/5XhwiRc2"
End Sub

Call OpenVideo
Call WaitForLoad

ie.Visible = True