Function stkr(code As String) As Variant
Dim y, z As Variant
If code Like "*Capspread*" Then
z = Split(code, " ")
y = Split(z(2), "/")
If z(2) Like "*%*" Then
stkr = Abs(Val(y(0)) - Val(y(1))) * 100
Else: stkr = Abs(Val(y(0)) - Val(y(1)))
End If
ElseIf code Like "*Floorspread*" Then
z = Split(code, " ")
y = Split(z(2), "/")
If z(2) Like "*%*" Then
stkr = -Abs(Val(y(0)) - Val(y(1))) * 100
Else: stkr = -Abs(Val(y(0)) - Val(y(1)))
End If
Else: stkr = " "
End If
End Function