Find and Replace with ASP Classic

I have an function in ASP VB. and I need to replace the exact word in it. For example I have an string like "wool|silk/wool|silk". I want to replace just silk and not silk/wool.

' "|" is a devider
 cur_val = "wool|silk/wool|silk"
 cur_val_spl = Split("wool|silk/wool|silk", "|")
 key_val = "silk"
 For Each i In cur_val_spl
     If i = key_val Then
         cur_val = Replace(cur_val, ("|" & i), "")
         cur_val = Replace(cur_val, i, "")
     End If
 Next
 Response.Write(cur_val)
 

In this case my result would be "wool/wool" but what I really want is this "wool|silk/wool".

I really appreciate any help.

---