• Home
 · 
• Custom Controls/Forms/Menus
 · 
• 'Simple code for convert text to UPPERCASE

'Simple code for convert text to UPPERCASE

'Simple code for convert text to UPPERCASE

Rate 'Simple code for convert text to UPPERCASE

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim pos As Long
     
    If Len(txtCtrl(Index)) >= 1 Then
        pos = txtCtrl(Index).SelStart
        txtCtrl(Index) = UCase(txtCtrl(Index))
        txtCtrl(Index).SelStart = pos
    End If
end sub