ok facendo come mi hai detto funziona alla grande

pero' se io dei primi 5 valori dell'archi ne ricavo altri 10

cioè :
DIST1
DIST2
DIST3
DIST4
DIST5
DIST6
DIST7
DIST8
DIST9
DIST10

A QUESTO PUNTO DEVO sapere quale di questi valori è a 30 (esempio)

ed ho aggito in questo modo :

Dim DIST(1 To 10) As Integer
Dim Y As Integer
For Y = 1 To 10
DIST(Y) = DIST(Y)
If DIST(Y) = 30 Then
Prv.Text = DIST(Y)
End If

come mi hai detto, pero non va sbaglio sicuro in qualcosa