Copiar texto al portapapeles

Buenas.

Deseo copiar un texto al portapapeles (Clipboard), para pegarlo donde desee. El código que tengo es:

Dim vTexto As String

vTexto= "TEXTO"

Clipboard.Clear

Clipboard.SetText  vTexto

Pero no limpia el portapapeles, con lo que no sale el texto deseado.

Alguna sugerencia. Gracias

Buenas.

La variable es vTexto y se definice al hacer clic en un botón. Aunque estoy pensando que en lugar de variable podría ser una constante (Const) pues siempre será el mismo texto (un poquito largo).

El códgio no es de ChatGPT, es de lawebdelprogramador, pero tampoco funciona.

Gracias

Buenas.

Hasta ahora había creado un cuadro de texto, poner el texto deseado en dicho cuadro, tomar el enfoque y copiarlo. Este método funciona perfectamente. Pero buscando, encontré en la web mencionada anteriormente el "Clipboard", y me surgió la curiosidad de como utilizarlo por  aproximarse más a lo que yo quería.