Il codice seguente è ancora meglio:
Codice:
Function Max2 (Value1, Value2)
Max2=Value1
If Value2 > Value1 Then Max2 = Value2
In pratica, impostate già un valore il quale cambia solo al verificarsi della condizione specifica.
Qualora il loop impegnasse tanto il processore da rendere il S.O. meno reattivo, aggiungete DoEvents nel ciclo for...next
Codice:
For i = 1 To 1000000
...
DoEvents
Next
In ultimo, nei sistemi a 32 bit utilizzare long invece di integer risulta più performante.