From: cornerstonestudios@adelphia.net   
      
   Steve Gerrard wrote:   
   > "Michael Warner"  wrote in message   
   > news:h9OdnU4ggN5ZB9XfRVn-1w@adelphia.com...   
   >   
   >>I can't seem to get a working function for finding the lowest value of   
   >>the array.  If anyone could help me, I would be most greatful.   
   >>   
   >>Private Function HiCard()   
   >>Dim intHiCard As Integer   
   >>Dim intIndex As Integer   
   >>   
   >>For intIndex = LBound(ArrScore) To UBound(ArrScore)   
   >>   If ArrScore(intIndex) > intHiCard Then   
   >>       intHiCard = ArrScore(intIndex)   
   >>   End If   
   >>Next intIndex   
   >>   
   >>HiCard = intHiCard   
   >>   
   >>End Function   
   >>   
   >   
   >   
   > I will start you off, and hope you recognize a pattern:   
   >   
   > Private Function LoCard()   
   > Dim intLoCard As Integer   
   > Dim intIndex As Integer   
   >   
   > intLoCard = HiCard()    'starting value   
   >   
   > For intIndex = LBound(ArrScore) To UBound(ArrScore)   
   >     ' and you know the rest....   
   >   
   >   
   the low card now returns a value of 0   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)