I cannot figure this out, nor can ChatGPT.  I have a long text field formatted as Rich Text. What I'm trying to do is format it as hanging indent.  Following is the code from Chat GPT, but I get a Run-time error 424 on the "Set sel = Me.NoteText.SelText" code.

Private Sub SetHangingIndent()
    ' Set focus to the rich text field
    Me!NoteText.SetFocus
    
    ' Get the currently selected text in the rich text field
    Dim sel As Object
    Set sel = Screen.ActiveControl.SelText
    
    ' Check if any text is selected
    If Len(sel) = 0 Then
        MsgBox "Please select some text in the NoteText field.", vbInformation, "No Text Selected"
        Exit Sub
    End If
    
    ' Apply a hanging indent of 0.5 inches to the selected text
    sel.Paragraphs.Format.HangingIndent = True
    sel.Paragraphs.Format.FirstLineIndent = -0.5 * 1440  ' Convert 0.5 inches to twips (1 inch = 1440 twips)
End Sub