This example divides telephone numbers of the form 206-555-1212 into two columns. The first column contains only the area code, and the second column contains the seven-digit telephone number with the embedded hyphen.
Worksheets("Sheet1").Columns("A").Parse _
parseLine:="[xxx] [xxxxxxxx]", _
destination:=Worksheets("Sheet1").Range("B1")