CodeItBetter Programming Another VB Programming Blog

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