Public Sub GetHits( _
   ByVal Num As Long, _
   ByRef hitbuffer As Double _
)