Era tan sencillo como escribir este código:

Public Sub btnCopiar_Click()

  Clipboard.Copy(TextAreaContenido.text)
 
End

Y muchas gracias a Shell y vuot