Function SomAnimo(Animal As String)
Dim a As String, curr As Long, n As Long
a = [A1].Text
curr = 1
Do While InStr(curr, a, Animal) > 0
n = InStr(curr, a, Animal) - 2
Do While Mid(a, n, 1) Like "[0-9]"
If n > 1 Then n = n - 1 Else Exit Do
Loop
SomAnimo = SomAnimo + Val(Mid(a, n, InStr(curr, a, Animal) - n - 1))
curr = InStr(curr, a, Animal) + Len(Animal)
Loop
End Function