ah chit. I forgot one thing. Once I find the average I need to display those listings that exceed the average. I need to display all three columns when doing this. I need another loop don't I? I have this but for some reason its not working. lol

For intRowIndex = 0 To 13

If mintDataArray(intRowIndex, 1) > mcurIncomeTotal Then
Print mintDataArray(intRowIndex, 1)

End If
Next