[VB6] Controllo valore di variabili Double

[oregon]

Visto che le variabili sono semplici (non si tratta di un vettore) devi fare una serie di if e valorizzare un contatore

Dim c As Integer

c = 0

If dblDimenx0>1E6 Then c=c+1
If dblDimenx1>1E6 Then c=c+1
If dblDimenx2>1E6 Then c=c+1
If dblDimenx3>1E6 Then c=c+1
If dblDimenx4>1E6 Then c=c+1
If dblDimenx5>1E6 Then c=c+1
If dblDimenx6>1E6 Then c=c+1

If c>... Then

in questo modo, nell'ultima if potrai capire quante variabili hanno superato quel valore e decidere cosa fare ...

Ma mi sembra troppo semplice ... forse non ho capito a fondo il problema ...