WScript.Echo objIE.document.getElementsByTagName("div").length
'WScript.Echo objIE.document.getElementsByTagName("span").length

 Dim element
 For Each element In objIE.document.getElementsByTagName("div")
   If InStr(element.childNodes, "vjs") > 0 Then
  'WScript.Echo element.className
   WScript.Echo element.childNodes
   WScript.Echo element.innerText
 End If
 Next

Do
   Set vjsProgressControl = Nothing
   On Error Resume Next
   Set vjsProgressControl = objIE.document.getElementsByClassName("vjs-control-text")
   On Error Goto 0
   WScript.Sleep 100
 Loop While vjsProgressControl Is Nothing
 WScript.Echo "vjs-control-text is found"

Do
   Set vjsProgressControl = Nothing
   On Error Resume Next
   Set vjsProgressControl = objIE.document.getElementsByClassName("vjs-control-bar")
   On Error Goto 0
   WScript.Sleep 100
 Loop While vjsProgressControl Is Nothing

 Dim element
 For Each element in vjsProgressControl
   wscript.echo element.getElementsByClassName("span")(0).innerText
   wscript.echo element.getElementsByClassName("span")(1).innerText
   wscript.echo element.getElementsByClassName("span")(2).innerText
   wscript.echo element.getElementsByClassName("span")(3).innerText
 Next

WatchPlayListHeading = objIE.document.getElementById("sbWatchPlaylistVideoHeading").getElementsByTagName("span")(0).innerText