Заменить слова с чётным числом символов на верхний регистр, а снизу нечётным - VB

 Sub example()
    Dim s$, f&, j$(), max&, lj&, im&
    s = "ur.muroFrebiC самый лучший форум в мире"
    j = Split(s)
    For f = 0 To UBound(j)
        'If f Mod 2 Then
            'Mid(j(f), 1, 1) = UCase(Mid(j(f), 1, 1))
        'End If
        If Len(j(f)) Mod 2 = 0 Then
            j(f) = UCase(j(f))
        Else
            j(f) = LCase(j(f))
        End If
        lj = Len(j(f))
        If lj > max Then
            max = lj: im = f
        End If
    Next
    j(im) = StrReverse(j(im))
    
    s = Join(j)
    MsgBox s, vbInformation
 
End Sub