< Public Sub GoToEndOfTextBox (TextControl As TextBox) (?)

Comments

    
    '-------------------------------------------------------------------------
    'Moves cursor to end of a text box
    '-------------------------------------------------------------------------

Public Sub GoToEndOfTextBox (TextControl As TextBox)
With TextControl
        .SelLength = 0
        .SelStart = Len(.Text)
    End With
End Sub

Copying, Return to index