>>784
Dim juni(Max - Min + 1)
juni(x - Min) = xxx