Finde mindste/største værdi i et array..?!

For Index = LBound(aArray) To UBound(aArray)
    If aArray(Index) < LValue Then LValue = aArray(Index)
    If aArray(Index) > HValue Then HValue = aArray(Index)
Next Index
Msgbox \"Den mindste værdi var \" & LValue & \" den højeste ver \" & HValue

For Index = LBound(aArray) To UBound(aArray)
    If aArray(Index) < LValue Then LValue = aArray(Index)
    If aArray(Index) > HValue Then HValue = aArray(Index)
Next Index
Msgbox \"Den mindste værdi var \" & LValue & \" den højeste var \" & HValue

dexxa:> Hvor latterligt! Du har rettet et E til et A .. og ikke en disse mere!

dexxa > Tror du ikke du skal ha\' oprettet din egen kattegori... \"Dansk retstavning\" !?!

winkill> hvis jeg bruger denne kode:

aArray(0) = 5
aArray(1) = 3
aArray(2) = 1
aArray(3) = 7
    For Index = LBound(aArray) To UBound(aArray)
    If aArray(Index) < LValue Then LValue = aArray(Index)
    If aArray(Index) > HValue Then HValue = aArray(Index)
            Next Index
            MsgBox \"Den mindste værdi var \" & LValue & \" den højeste ver \" & HValue


Skriver den: \"Den mindste værdi var  den højeste ver 7\"

Den kan ikke finde den mindste, med mindre at der er negative tal indblandet...!

Ups ja selvfølgeligt. Her en en lille update

bLFound = False
aArray(0) = 5
aArray(1) = 3
aArray(2) = 1
aArray(3) = 7
    For Index = LBound(aArray) To UBound(aArray)
    If aArray(Index) < LValue Or Not bLFound Then LValue = aArray(Index) : bLFound = True
    If aArray(Index) > HValue Then HValue = aArray(Index)
            Next Index
            MsgBox \"Den mindste værdi var \" & LValue & \" den højeste ver \" & HValue

Jeg er ikke helt sikker på at det virker sådan, men ellers så udskift \"Or Not bLFound Then\" med \"Or bLFound = False Then\"

I en CommandButton:

on error goto g

dim Num , Værdi, EKS as integer

eks = aArray(0).caption
Do
if val(aArray(Num).caption) < eks then
værdi = index
end if
Num = Num + 1
Loop

exit sub
g:

MsgBox \"Det var nummer \" & værdi & \" Der var mindst!!\"