Non so cosa faccia Slope, anche perché normalmente una retta passa per due punti e non per 5, a meno che non siano, per l' appunto, in linea retta, che è un caso limite... per cui passo la mano sull' algoritmo.

Io semplificherei il codice, passando a Slope 5 valori integer e non una matrice:

codice:
Dim matrix(10000) As Double
Dim indexStart As Integer

For x As Integer = 0 To matrix.Lenght - 6

  'slope è una funzione che mi restituisce il coefficiente angolare della retta.
  If slope(matrix(x), matrix(x+1), matrix(x+2), matrix(x+3), matrix(X+4)) >= 0.2 Then
      indexStart = x
      Exit For
  End If

Next
bye