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
Bookmarks