'************************************** ' Name: Capitalize First Letter Of Each ' Word ' Description:Capitalize First Letter Of ' Each Word In A Text Box With One Line Of ' Code. ' By: PAIK ' ' ' Inputs:None ' ' Returns:None ' 'Assumes:None ' 'Side Effects:None '************************************** ' on a form put a text box a paste the c ' ode below ' it will make the first letter of each ' word you type as capital letter. Private Sub Text1_KeyPress(KeyAscii As Integer) If Right(Text1.Text, 1) = " " Or Len(Text1.Text) = 0 Then KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub