custom function to ucase first 2 letters

Hello, I want to create my own function which will take a text and convert the first 2 letter to upper case but this function is not working! Thank you.

Function mytext(x As String) As String
    x = UCase(Left(x, 1)) & UCase(Left(x, 2)) & Left(x, Len(x) - 2)
    mytext = x
End Function