Function Extract&(t$, x$)
Dim L%, i%, j%
L = Len(x)
t = Replace(t, " ", "")
For i = 1 To Len(t)
If Mid(t, i, L) = x Then
For j = i - 1 To 1 Step -1
If Not IsNumeric(Mid(t, j, 1)) Then Exit For
Next
If IsNumeric(Mid(t, j + 1, 1)) Then Extract = Val(Mid(t, j + 1)): Exit For
End If
Next
End Function