OK, got more information from the other thread regarding your problem. Can you paste the following code to a code module, and try calling the UDF function to solve your issue.
Code:Function CSPLIT(strPassed As String) As String Dim str, strP As String strP = Split(strPassed, ";")(0) str = Split(strP, ">")(0) & ">" If InStr(1, Split(strPassed, ";")(0), "/") Then str = str & Split(Split(strPassed, ";")(0), "/")(1) Else str = str & Right(Split(strPassed, ";")(0), 1) End If CSPLIT = str End Function




Reply With Quote
Bookmarks