vbs and websocket

Need script in vbs (or vba) which will connect to the server using a websocket to subscribe to channels and receive information in a variable. And also explain what and how it works (in the form of comments in the code).