sub cercaminimo ()
Dim myarray(150,6)
Dim X as range

' qui vorrei popolare la matrice senza copiare i dati sul foglio excel ed appunto non so come si fa'
' poi una volta popolata la matrice faccio un semplice ciclo per controllare se il minimo attuale è minore del minimo di 10 righe prima

For y = 100 to 150
if myarray(y,5) < myarray(y-10,5) then
x = y 
end if
next
end sub

Sub textToMatrix()
Dim matr()
fname = "C:usersuserdesktopprova1.txt"
arr1 = Split(CreateObject("scripting.filesystemobject").opentextfile(fname).readall, vbCrLf)
nrighe = UBound(arr1) - 1
ncol = UBound(Split(arr1(0), ","))
ReDim matr(nrighe, ncol)
For riga = 0 To nrighe
   arr2 = Split(arr1(riga), ",")
   For col = 0 To ncol
        matr(riga, col) = arr2(col)
   Next
Next
' --------------- verifica da eliminare
For r = 0 To nrighe
  For c = 0 To ncol
    Debug.Print matr(r, c); " ";
  Next
  Debug.Print
Next
End Sub