ikboy

Formula
=--MID($A$1,LEN(B1)+1 + FIND(B1&"=",$A$1),FIND("=",$A$1,LEN(B1)+1 + FIND(B1&"=",$A$1))-(LEN(B1)+1 + FIND(B1&"=",$A$1)))


UDF

1. Function zz(s$, rng As Range)
   
2. With CreateObject("vbscript.regexp")
   
3.     .Pattern = "\d[^\dA-Z=]+"
   
4.     .Global = True
   
5.     a = Split(.Replace(rng.Value, ""), "=")
   
6.     For i = 0 To UBound(a) - 1
   
7.         If a(i) = s Then t = True: Exit For
   
8.     Next
   
9. End With
   
10. If t Then zz = Val(a(i + 1)) Else zz = "No match found"
    
11. End Function

½Æ»s¥N½X