Hi,
I have the following code:
Function Extract(Products As String) As String
Dim softProdArray() As String
Dim out As String
Dim prod As Variant
softProdArray = Split(Products, Chr(10))
For Each prod In softProdArray
If InStr(prod, "ORACLE") > 0 Or InStr(prod, "SYBASE") > 0 Or...