Una cosa del genere:

codice:
                video_url = "http://www.youtube.com/watch?v=lDckgX3oU_w&feature=g-vrec"
                startVideoID = Instr(video_url,"?v=") + 3
                if Instr(startVideoID,video_url,"&") > 0 then
                    endVideoID = Instr(video_url,"&")
                else
                    endVideoID = len(video_url) + 1
                end if
                videoID = mid(video_url,startVideoID,endVideoID-startVideoID)
Roby