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.

Perhaps there is a better way, but this should work.

Sub SeparateBinary()
    Dim nRow As Long, nCol As Long, str As String
    'Find the last row in column A
    For nRow = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        'Copy cell to string
        str = Cells(nRow, "A").Value
        For nCol = 1 To Len(str)
            'Separate Binary Digits into each Column
            Cells(nRow, nCol) = Mid$(str, nCol, 1)
        Next nCol
    Next nRow
End Sub

You wrote "column B" in your message, but your workbook showed column A. For column B, you would need to change "A" to "B" and the line "Cells(nRow, nCol) = ..." would need to be "Cells(nRow, nCol + 1) = ..."

Thanks to all 3 of you. All 3 worked like a charm!

Hi

A bit late, but another option

Sub Test()
Range("a2").Parse Replace(Replace(Range("a2").Value, "0", "[x]"), "1", "[x]"), Range("B2")
End Sub