Private Sub txtIme_LostFocus()
    txtIme.BackColor = vbWhite
    With txtIme
            .Text = UCase(Mid(.Text, 1, 1)) & Mid(.Text, 2, Len(.Text))
    End With
End Sub