Leggere coefficienti Regressione da Grafico di diverse serie

Ciao a tutti,
sto creando un foglio di calcolo per paragonare dati da grafico. Ho consultato la parte di forum dove viene spiegato come estrapolare i coefficienti tramite pulsante ActiveX.
Il codice lo trovate qui sotto:

La prima parte del codice è ok,

Private Sub CommandButton1_Click()
Dim s, x2, x, c
Dim i1, i2, f1, f2, ic, fc
Me.ChartObjects("Grafico 1").Activate
s = ActiveChart.SeriesCollecti0n(1).Trendlines(1).DataLabel.Text
i2 = InStr(s, "=") + 1
f2 = InStr(s, "x2")
x2 = Val(Replace(Mid(s, i2, f2 - i2), ",", "."))
i1 = f2 + 3
f1 = InStr(s, "x ")
x = Val(Replace(Mid(s, i1, f1 - i1), ",", "."))
ic = f1 + 2
fc = InStr(s, "R²") - 1
c = Val(Replace(Mid(s, ic, fc - ic), ",", "."))
Range("p2") = x2
Range("q2") = x
Range("r2") = c
Range("R12").Activate


Qui sto cercando di far leggere la seconda linea di tendenza e di ottenere i coefficienti ma non so come fargli puntare alla seconda linea di tendenza (credo che il problema sia nella riga in grassetto)

Dim s2, x4, x3, c2
Dim i4, i3, f4, f3, ic2, fc2
Me.ChartObjects("Grafico 1").Activate
s2 = ActiveChart.SeriesCollecti0n(2).Trendlines(1).DataLabel.Text
i4 = InStr(s2, "=") + 1
f4 = InStr(s2, "x2")
x4 = Val(Replace(Mid(s2, i4, f4 - i4), ",", "."))
i3 = f4 + 3
f3 = InStr(s, "x ")
x3 = Val(Replace(Mid(s2, i3, f3 - i3), ",", "."))
ic2 = f3 + 2
fc2 = InStr(s2, "R²") - 1
c2 = Val(Replace(Mid(s2, ic2, fc2 - ic2), ",", "."))
Range("p3") = x2
Range("q3") = x
Range("r3") = c
Range("R12").Activate

End Sub


Help!

allega il file

Eccolo allegato

Grazie 10000