Private Sub txtIme_LostFocus()

    txtIme.BackColor = vbWhite

    With txtIme

            .Text = UCase(Mid(.Text, 1, 1)) & Mid(.Text, 2, Len(.Text))

    End With

End Sub