CodeItBetter Programming Another VB Programming Blog

'Controls - How to make uppercase when entering the text in a text box
Public Function fnMakeUpperCase(txtBox As TextBox)
    'To convert the text to Upper case
    Dim lngSelStart As Long, lngSelLength As Long
With txtBox
    lngSelStart = .SelStart
    lngSelLength = .SelLength
    .Text = UCase$(.Text)
    .SelStart = lngSelStart
    .SelLength = lngSelLength
End With
End Function
 
'How can I call this function:
'Private Sub Text1_Change()
'Call fnMakeUpperCase(Text1)
'End Sub