Separating Binary Numbers via "Text to Columns" Type Approach

I have extremely long sets of binary 1s and 0s in cells in Column B of my spreadsheet, and I need to separate each digit into its own column, starting with Column B. I have looked at the Text to Columns function and have searched and searched Google, but I can't find anything that will separate after one digit/character. Can anyone provide me with VBA code to do this? Just a code that does what Text to Columns does but with each digit separated. Thanks in advance for your help! Please see the sample file for clarification, if needed.