Функция: заменить каждый четный символ в строке на прописной

Sub PhraseGlamuorizer() 'выделенную в Word строку выдаёт в InputBox вОт тАк
Dim i, sS  '()Byte
    sS = InputBox("Введите строку, желательно из букв", "Забор материала", Selection)
    
    For i = 2 To Len(sS) Step 2
        Mid(sS, i, 1) = UCase(Mid(sS, i, 1))
    Next
    
    InputBox "Результат говорит сам за себя:", "Выдача", sS
End Sub

Private Sub CommandButton1_Click()
Dim s As String, d() As String, t As String
Dim r As Integer
 
s = "Создать пользовательскую функцию по обработке символьных строк которая бы:"
r = Len(s)
ReDim d(r)
For i = 1 To r
d(i) = Mid(s, i, 1)
If i Mod 4 = 0 Then
d(i) = UCase(d(i))
End If
t = t + d(i)
Next
'Cells(1, 2) = s
'Cells(2, 2) = t
msgbox t
End Sub

Private Sub CommandButton1_Click()
Dim s As String, t As String
s = "Создать пользовательскую функцию по обработке символьных строк которая бы:"
MsgBox s
MsgBox d(s)
End Sub
Function d(t)
For i = 1 To Len(t)
If i Mod 4 = 0 Then
Mid(t, i, 1) = UCase(Mid(t, i, 1))
End If
Next
d = t
End Function

Function evenUp(Stri as string) As String
    if len(Stri)<=1 then
      evenUp=Stri
    else
      evenUp=left$(Stri,1)+Ucase$(mid$(Stri,2,1))+evenUp(mid$(Stri,3))
    end if
End Function

Function eVeNuP