如何仅将匹配单词中的第二个字母大写？

Question

我试图编写一个程序来纠正文本文件中的错误，例如TOm-> Tom，EUrope->欧洲，但是如果单词有两个字母（例如IT），程序将询问用户是否要更改第二个字母。我必须使用re.sub

Sub CopyRowWithDates()
   Dim lrowcompleted As String
   Dim Rrange As Range

   Set Rrange = Sheets("MECHANICAL EQUIP.").Range("H2:H6000")

   On Error Resume Next
   Application.EnableEvents = False


        If Rrange = "mm/dd/yyy" Then

            lrowcompleted = Sheets("OFF RENT").Cells(Rows.Count, "A").End(xlUp).ROW

            Range("A" & Rrange.ROW & ":N" & Rrange.ROW).Copy Sheets("OFF RENT").Range("A" & lrowcompleted + 1)
            Else
        End If

    Application.EnableEvents = True


End Sub

代码的问题是我有两个小字母（不是汤姆），并且代码不会更改长度为2的单词中的字母。