エクセル計算式=Σ(ai×bi)のA=Σaiを計算するvbaを探しています。

(例)
=1*2+3*4 　　　　　　　　　 A=4
=1*2+3　　 　　　　　　　　 A=4
=R1C1*R1C2+R1C3*R7C8 　　A=R1C1+R1C3
他の言語でも参考のページがあれば教えて下さい。よろしくお願いします。

ーーーーーーー
20180407追加
ありがとうございます。

Sub aTest()
    Cells(1, 5) = "=1*2+3*(-4)"
    Cells(2, 5) = "=1*2+3"
    Cells(3, 5) = "=3+1*2"
    Cells(4, 1) = "1"
    Cells(4, 2) = "2"
    Cells(4, 3) = "3"
    Cells(4, 4) = "4"
    Cells(4, 5) = "=R4C1*R4C2+R4C3*R4C4"
'
    Cells(1, 7) = sigmaA(Cells(1, 5)) '4
    Cells(2, 7) = sigmaA(Cells(2, 5)) '4
    Cells(3, 7) = sigmaA(Cells(3, 5)) '4
    Cells(4, 7) = sigmaA(Cells(4, 5)) '4
End Sub