wb.columns(1).TextToColumns Destination:=wb.Range(
"A1"
), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=
False
, Tab:=
True
, _
Semicolon:=
False
, Comma:=
False
, Space:=
False
, Other:=
False
, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
wb.columns(1).NumberFormat =
"0"