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

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

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

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

VB Code:

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

but its an input box

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

VB Code:

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