custom function to ucase first 2 letters

[lastnn30]

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

[Kaper]

try

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

or shorter and working also with shorter strings
(deleted - see corrected version below)

[Kaper]

Note I removed second version form above post.
Here it is corrected:

Function mytext(x As String) As String
  If Len(x) > 2 Then
    mytext = UCase(Left(x, 2)) & Mid(x, 3, Len(x) - 2)
  Else
    mytext = UCase(x)
  End If
End Function