You have to specify that the output columns are Text, not General, in Step 3
of the Wizard.
Or if you record a macro of this action, you get something like:

Range("K1").Select
Selection.TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar
_
:="-", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)), _
TrailingMinusNumbers:=True

NickHK

"ExcelUser777" wrote in message
s.com...
Hi

I want to get 01-0000000-00000001 to look like below...


Cell a1 = 01
Cell b1 = 0000000
Cell c1 = 00000001

I keep getting

Cell a1 = 1
Cell b1 = 0
Cell c1 = 1

I use "-" as my delimiter....


Thanks,
ExcelUser777