DOBRÝ DEN MÁM FUNKCI NAPŘÍKLAD

Sub TestPrevod()
Dim vstup As String
Dim vysledek As String

' Načti text z C3 (např. "S T V R Z E N K A")
vstup = Sheets("Stvrzenka").Range("C3").Text

' Odstraň mezery a převed na správný tvar (např. "Stvrzenka")
vysledek = StrConv(Replace(vstup, " ", ""), vbProperCase)

' Zapiš výsledek do O9
Sheets("Stvrzenka").Range("O9").Value = vysledek

MsgBox "Výsledek: " & vysledek
End Sub

Do buňky O9 by to mělo napsat Stvrzenka ale nezapíše mi to můžete mi prosím poradit?
Moc děkuji