From: mynamehere@comcast.net   
      
   "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....   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)