Вводится различные символы, нужно вывести только заглавные буквы, которые стоят по две

Option Compare Binary 'это по умолчанию так, но не повредит
 
Sub couples_ala_AB()
Const vvod = "!2543ФАавпвыПАваААА46лпРТ"
Const PAIR = "[A-ZА-ЯЁ][A-ZА-ЯЁ]" 'это шаблон поиска пары заглавных букв
Const P = vbLf 'перевод строки (при выводе)
Dim i, s, dobavka
 
    dobavka = Mid(vvod, 1, 2) 'отдельно проверим крайнюю пару (левую)
    If dobavka Like PAIR Then _
    If Not Mid(vvod, 3, 1) Like "[A-ZА-ЯЁ]" Then s = s & dobavka
    
        For i = 2 To Len(vvod) - 2
            dobavka = Mid(vvod, i, 2) 'смотрим, что за символы i-й и (i+1)-й
            If dobavka Like PAIR Then 'пара заглавных букв
              If Not (Mid(vvod, i - 1, 1) Like "[A-ZА-ЯЁ]" _
                   Or Mid(vvod, i + 2, 1) Like "[A-ZА-ЯЁ]") Then s = s & dobavka
                MsgBox "dobavka: " & dobavka & P & "s: " & s
            End If
        Next
        
    dobavka = Mid(vvod, Len(vvod) - 1) 'отдельно проверим крайнюю пару (правую)
    If dobavka Like PAIR Then _
    If Not Mid(vvod, Len(vvod) - 2, 1) Like "[A-ZА-ЯЁ]" Then s = s & dobavka
    
    MsgBox "Вводная:" & P & vvod & P & P & "Отфильтрованная: " & P & s
End Sub

Const vvod = TextBox1.Text