Во введенной строке заменить все строчные буквы на прописные и наоборот

Sub Procedure_1()
 
    Dim sString_1 As String, sString_2 As String
    Dim sCharacter As String
    Dim i As Long
    
    'Вводим в переменную текст, чтобы было, что анализировать.
    sString_1 = "аБвГдЕ"
    
    'С помощью цикла For ... To ... Step ... Next
    'просматриваем каждый символ в строке.
    'С помощью "Len" определяем количество символов в строке.
    For i = 1 To Len(sString_1) Step 1
    
        'С помощью функции "Mid" берём из строки один символ.
        'Для удобства написания кода, помещаем текущий символ
        'в переменную "sCharacter".
        sCharacter = Mid(sString_1, i, 1)
        
        'С помощью If ... Then ... Else ... End If - выбираем действие.
        'Если тот же самый символ в первончальном виде и
        'в нижнем регистре (маленькая буква) совпадают, значит
        'символ делаем большим.
        If sCharacter Like LCase(sCharacter) Then
            'Изменённые символы помещаем в новую строку.
            sString_2 = sString_2 & UCase(sCharacter)
        Else
            'Если не совпадают, значит символ делаем маленьким.
            sString_2 = sString_2 & LCase(sCharacter)
        End If
    Next i
    
    'Выводим на монитор результат.
    MsgBox "Результат: " & sString_2
    
End Sub

Sub Procedure_1()
 
    Dim sString As String
    Dim sCharacter As String
    Dim i As Long
    
    'Вводим в переменную текст, чтобы было, что анализировать.
    sString = "аБвГдЕ"
    
    'С помощью цикла For ... To ... Step ... Next
    'просматриваем каждый символ в строке.
    'С помощью "Len" определяем количество символов в строке.
    For i = 1 To Len(sString) Step 1
    
        'С помощью функции "Mid" берём из строки один символ.
        'Для удобства написания кода, помещаем текущий символ
        'в переменную "sCharacter".
        sCharacter = Mid(sString, i, 1)
        
        'С помощью If ... Then ... Else ... End If - выбираем действие.
        'Если тот же самый символ без изменения и
        'в нижнем регистре (маленькая буква) совпадают, значит
        'символ делаем большим.
        If sCharacter Like LCase(sCharacter) Then
            'Заменяем символ прямо в той же строке.
            Mid(sString, i, 1) = UCase(sCharacter)
        Else
            'Если не сопадают, значит символ делаем маленьким.
            Mid(sString, i, 1) = LCase(sCharacter)
        End If
    Next i
    
    'Выводим на монитор результат.
    MsgBox "Результат: " & sString
    
End Sub