Dim nValue As Long
Dim i As Integer
 
For i = LBound(Array) To UBound(Array)
  If Array(i) < nValue Or nValue = 0 Then nValue = Array(i)
Next i
 
MsgBox "Niedrigster Wert: " & CStr(nValue)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de