I am trying to find projects corresponding a part number in a spreadsheet and there are more than one project associated with a part number. So, I found this great function below to get all those values of projects. So, now I am trying to save these values returned in an array. I don't know how to debug by looking at my output...
What I have tried so far is below.. can anyone help me?

Sub try()
'Find_Range(Range("a2"), Range("B2:B5000")).Select
array1 = Find_Range(Range("A2"), Range("B2:B5000")).Offset(0, 1).Value
Debug.Print array1
End Sub


Function Find_Range(Find_Item As Variant, Search_Range As Range, _
Optional LookIn As Variant, _
Optional LookAt As Variant, _
Optional MatchCase As Boolean) As Range
'copied from http://www.ozgrid.com/forum/showthread.php?t=27240
'courtesy Ozgrid's member
Dim c As Range
If IsMissing(LookIn) Then LookIn = xlValues 'xlFormulas
If IsMissing(LookAt) Then LookAt = xlPart 'xlWhole
If IsMissing(MatchCase) Then MatchCase = False

With Search_Range
Set c = .Find(What:=Find_Item, LookIn:=LookIn, LookAt:=LookAt, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=MatchCase)
'SearchFormat:=False)
If Not c Is Nothing Then
Set Find_Range = c
firstAddress = c.Address
Do
Set Find_Range = Union(Find_Range, c)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Function