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