how can you make some text in text box to all capitals?

[parisa_ch]

how can you make some text in text box to all capitals?
i mean acustomet types in something but you want it to be all in capitals

[parisa_ch]

i meant an input box
if the customer types in input box

[DKenny]

When the user leave teh textbox, you can use the LostFocus event to convert the text to CAPS.

Private Sub TextBox1_LostFocus()
    TextBox1.Text = UCase(TextBox1.Text)
End Sub

[parisa_ch]

but its an input box

[MartinLiss]

Here is the code for a form that looks like an inputbox. You can add the following to make it do what you want.

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
 
    Text1.Text = UCase(Text1.Text)
    Text1.SelStart = Len(Text1.Text)
    
End Sub