Salut à tous

Je voudrais mettre le caractère du milieu en majuscule comme par exemple si j'entre le mot: faq le resultat sera fAq. Comment faire ?
Voila mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Dim nom As String
        Console.Out.WriteLine("entrez un nom")
        Do
            nom = Console.In.ReadLine
            If Len(nom) Mod 2 <> 0 Then
 
                UCase(Mid(nom, Len(((((nom))) + 1) / 2), 1))
 
                Console.Out.WriteLine("le nom est: " & UCase(Mid(nom, Len(((((nom))) + 1) / 2), 1)))
            Else
                Console.Out.WriteLine("le nom est paire")
 
 
            End If
 
        Loop Until nom = "n"
        Console.In.ReadLine()
Merci.