Как удалить последний символ в строке?

Sub ReverseWord()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol interval", xTitleId, ",", Type:=2)
For Each Rng In WorkRng
    strList = VBA.Split(Rng.Value, Sigh)
    xOut = ""
    For i = UBound(strList) To 0 Step -1
        xOut = xOut & strList(i) & Sigh
    Next
    Rng.Value = xOut
Next
End Sub

'1) действие узнаем длину строки
S1_Len = Len(S1) 'S1 - искомая строка
'2) удаляем последний символ, на самом деле функция mid возвращает нам заданное количество символ от указанной позиции
S2 = Mid(S1, 1, S1_Len - 1) 'Записываем в переменную S2 все кроме последнего символа

Sub ReverseWord()
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    Sigh = Application.InputBox("Symbol interval", xTitleId, ",", Type:=2)
    Rng.Value = StrReverse(Rng.Value)
End Sub

xOut = xOut & strList(i) & iif(i<>0,Sigh,"")