CodeItBetter Programming Another VB Programming Blog

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