Find out the minimum value in an Array

Dim LevenshteinValue As Long
Dim LevenshteinValueCounter As Long
Dim ArrLevenshteinValues() As Variant
Dim b,c, d1, e1 As Long


LevenshteinValueCounter = 0


                    For b = 1 To VALUATIONTableRowCollection.Length - 1


                          Set VALUATIONRowObj = VALUATIONTable.Rows(b)


                    c = 1


                    Set VALUATIONRowCompanyNameCellObj = VALUATIONRowObj.Cells(c)


                          LevenshteinValue = Levenshtein(Range("D6").Value, ExtractVName(VALUATIONRowCompanyNameCellObj))


                          LevenshteinValueCounter = LevenshteinValueCounter + 1


                          ReDim Preserve ArrLevenshteinValues(1 To LevenshteinValueCounter)


                          ArrLevenshteinValues(LevenshteinValueCounter) = LevenshteinValue


                    Next


                    For d1 = 1 To LevenshteinValueCounter


                           Debug.Print ArrLevenshteinValues(d1)


                    Next


                    e1 = Application.Match(Application.Min(ArrLevenshteinValues), ArrLevenshteinValues, 1)


                    Debug.Print "Least Value is : " & ArrLevenshteinValues(e1)   -


[B]Solution :  Least Value is : [/B] [B]8[/B]