Function Tersinecevir(rngString As Range, Optional strDelim As String = ",") As String
    Dim vStrings As Variant, lngString As Long
    vStrings = Split(rngString, strDelim)
    For lngString = UBound(vStrings) To LBound(vStrings) Step -1
        Tersinecevir = Tersinecevir & strDelim & vStrings(lngString)
    Next lngString
    Tersinecevir = Replace(Tersinecevir, strDelim, "", 1, 1)
End Function

=Tersinecevir(A1;"-")