you could use this UDF, i changed the delimiter to ;

put this code in a new module

Function FindVarSum(Var As String, SearchIn As Range)
Dim r As Range
Dim i As Integer
Dim output As Double
Var = Var & ";"

For Each r In SearchIn
    For i = 0 To UBound(Split(r.Value, ";"))
        Temp = Split(r.Value, ";")(i) & ";"
        If InStr(Temp, Var) > 0 Then
            temp2 = Mid(Temp, 1, InStr(Temp, Var) - 1)
            output = output + temp2
        End If
    Next i
Next r

FindVarSum = output

End Function
in your sheet use this syntax

=FindVarSum(G3,$A$4:$E$4)