Splitting cells by non-printable characters

Try this:

Sub SplitByCharacter()
Columns("A:A").SpecialCells(xlCellTypeConstants, 2).TextToColumns Destination:=Range("A1"), _
    DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Other:=True, OtherChar:=Chr(10)
End Sub