Parsing text file into excel

hi everyone,Happy Holidays..just wondering if I can get some Christmastime cheer..

I am trying to get this text file parsed into excel , I want each line of a order into separate columns.
demarcated by 1) 2) indicating the next row etc....

like 1) 601-408867 CUSTOMER NAME 14 LANGMAID CRT WHITBY ON ABC 123 TIM PARK 900T 2012/12/12 12/21/2012 2:51:14 PM WHITE WEST WRT8G3EW etc..



1 )
601-408867
CUSTOMER NAME
14 LANGMAID CRT WHITBY ON ABC 123
TIM PARK 900T
2012/12/12 12/21/2012 2:51:14 PM
WHITE WEST WRT8G3EW
00000010060402688883
2 )
768-901732
CUSTOMER NAME
14 LANGMAID CRT WHITBY ON ABC 123
TIM PARK 900T
2012/12/12 12/21/2012 2:51:14 PM
WHITE WEST WRT8G3EW
00000010060402688883
3 )
768-901732
CUSTOMER NAME
14 LANGMAID CRT WHITBY ON ABC 123
TIM PARK 900T
2012/12/12 12/21/2012 2:51:14 PM
WHITE WEST WRT8G3EW
00000010060402688883

try the macro included

Here's my interpretatoion

Sub test()
    Dim fn As String, txt As String, m As Object, i As Long, n As Long, t As Long
    fn = ThisWorkbook.Path & "\SD3.txt"  '<-- alter file path/name
    txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn).ReadAll
    With CreateObject("VBScript.RegExp")
        .Global = True
        .MultiLine = True
        .Pattern = "[^\n]+"
        Set m = .Execute(txt)
        For i = 0 To m.Count - 1
            If Trim$(m(i)) <> "" Then
                .Pattern = "^\d+ ?\) ?$"
                If .test(m(i)) Then
                    n = n + 1: t = 0
                End If
                t = t + 1
                Cells(n, t).Value = m(i)
            End If
        Next
    End With
End Sub

both of these work awesome.. God Bless you all this Holiday Season!
Merry Christmas to you all !!