David,

Type Transaction
TransDate As Date
Amount As Currency
End Type

Sub testit()
Dim arrTom(1) As Transaction, arrMark(2) As Transaction

arrTom(0).TransDate = "02-Jan-2004": arrTom(0).Amount = "285.00"
arrTom(1).TransDate = "19-Dec-2003": arrTom(1).Amount = "232.78"
arrMark(0).TransDate = "02-Jan-2004": arrMark(0).Amount = "220.56"
arrMark(1).TransDate = "19-Dec-2003": arrMark(1).Amount = "721.26"
arrMark(2).TransDate = "19-Dec-2003": arrMark(2).Amount = "854.82"
End Sub

Rob

"David" wrote in message
...
I am going to just pasta my data example.

1/2/2004 Tom 285.00
12/19/2003 Tom 232.78
1/2/2004 Mark 220.56
12/19/2003 Mark 721.26
12/19/2003 Mark 854.82

I want to do an array where for Tom, (the dates and dollar
amounts fill into my userdefine variable that only contain
the dates and amount) and the same with Mark.

Can anyone Please Help