I had a problem with Ivan's code. This line:
PosLastID = InStr(1, strCode, "&sk=")
returned 0 for PosLastID, because "&sk=" isn't present in the innerHTML of the page (I checked). Instead I used this:
Code:
'// Find position of VideoID
PosVideoID = InStr(1, strCode, "amp;video_id")
'// Find position of end of videoID
PosLastID = InStr(PosVideoID, strCode, "&")
and eventually I got a strVideoURL of
http://youtube.com/get_video?video_id=7SJGDG5GZ2c
but I got an error message that IE couldn't download the video from youtube. Does this look like the right form of strVideoURL?
Note: clicking on the link above to strVideoURL led to "HTTP 404 Not Found".