String text in Word html. Passing info between Word and Excel

[DocAElstein]

Sub FuckoffvbCrandvbLfinwordtext()  '   https://www.excelfox.com/forum/showthread.php/2824-Tests-Copying-pasting-Cliipboard-issues?p=18377&viewfull=1#post18377
Dim ClipTxt As String ': Let ClipTxt = "  https://www.youtube.com/channel/UCnxwq2aGJRbjOo_MO54oaHA  " & vbCr & vbLf
Dim SelText As String
 Let SelText = Selection.Text

 Let ClipTxt = Replace(SelText, vbCr, "", 1, -1)
 Let ClipTxt = Replace(ClipTxt, vbLf, "", 1, -1)
'   Put the string in the clipboard
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")  '   web.archive.org/web/20200124185244/http://excelmatters.com/2013/10/04/late-bound-msforms-dataobject/
     .SetText ClipTxt
     .PutInClipboard
    End With
End Sub