Excel VBA QueryTable.WebPreFormattedTextToColumns with a specific delimiter

Question

I found the following code which will take

 formatted data in a web page and separate data into separate columns using the a blank space as the default delimiter to cre