Dim myString As String
    Dim myStringSonuc As String
    Dim Dizim() As String
   
    myString = "1-2-3-4-5-6-7-8-9-10-11-12-13-14-15"
    Dizim() = Split(myString, "-")
   
    For i = UBound(Dizim) To LBound(Dizim) Step -1
        myStringSonuc = myStringSonuc & Dizim(i) & "-"
    Next i
   
    MsgBox Mid(myStringSonuc, len(myStringSonuc)-1)