Hi everyone,

Thank you everyone for the suggestion, but Mikerickson code acomplish what I'm looking for with the exception that if there is a space between word in a sentence, it does not continue to capitalize the first letter.

for example: My Name Is McDonald McPherson

[vba]
With txtAirport
.Text = UCase(Left(.Text, 1)) & Mid(.Text, 2)
End With
[/vba]
The other codes does the same thing.