Добрый вечер! Наверное я с очень простым вопросом, но буду искренне признательна за ответ:  
на userform размещены несколько checkbox`ов, при кликании на которые в переменную последовательно заносятся соответствующие текстовые значения. На событие click каждого checkbox`а стоит вызов процедуры (см. код). С помощью процедуры между значениями ставится запятая. Беда в том, что в результате запятая ставится и после завершающего текстового значения. Подскажите, пожалуйста, как можно в итоговой переменной (S) программно удалить последний символ (запятую)?  
 
Sub Result()  
Const p = ", "  
Dim S$  
S = "на основании: "  
If Me.cb_Sobstv.Value = True Then S = S & "права собственности" & p  
If Me.сb_Arenda.Value = True Then S = S & "договора аренды" & p  
If Me.cb_Xran.Value = True Then S = S & "договора ответственного хранения" & p  
If Me.cb_Bank.Value = True Then S = S & "договора залога" & p  
Vlad.Value = S  
End Sub