Составить программу, которая заменяет в строке "s" строчные буквы "о"(рус.) на прописные "о"(рус.)

Dim S As String
S = InputBox("Введите строку")
S = Replace(S, "о", "О")
'  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
MsgBox(S)