Пробелы убрать с права от символов (регулярные выражения) | MS Word - VBA

Формулировка задачи:

Здравствуйте Коллеги!

Прошу помощи! Следующая ситуация: есть код который удаляет множественные пробелы до одного пробела и пробелы перед знаками препинания. Никак не могу добиться удаления пробелов с права от специальных символов.

                    Листинг программы
                
 
                        
                          
                    
Sub ПРОБЕЛЫ_ПО_УСЛОВИЮ()
    'Dim myRegExp As RegExp
    'Set myRegExp = New RegExp
    Dim myRegExp As New RegExp
    With myRegExp 'CreateObject ("VBScript.RegExp")
        .Global = True
        '.IgnoreCase = True - не учитывать регистр
        .MultiLine = True
        .Pattern = "^[\t ]+|[\t ](?=[\t ]|[(.,:;!?\u0025\u0029\u0040\u00BB\u2026])|[\t ]+$"
        Selection.Text = .Replace(Selection.Text, "")
    End With
'(\b = [(\u00AB\u0028\u0040)])|
'MsgBox "ЮНИКОД" _
'        & vbCrLf & "  \u00AB   " & Chr(171) _
'        & vbCrLf & "  \u00BB   " & Chr(187) _
'        & vbCrLf & "  \u0028   " & Chr(40) _
'        & vbCrLf & "  \u0029   " & Chr(41) _
'        & vbCrLf & "  \u0025   " & Chr(37) _
'        & vbCrLf & "  \u0040   " & Chr(64) _
'        & vbCrLf & "  \u2026   " & Chr(133)
End Sub

Подскажите пожалуйста!

Решение задачи: «Пробелы убрать с права от символов (регулярные выражения) | MS Word»

textual
                            Листинг программы 
                        
dim i as integer
  i=5
  s="a" & i ' s="a5"