Si trato de pegar desde un portapapeles vacío, aparece un error. Me gustaría comprobar si el portapapeles está vacío de texto antes de pegar para poder evitar esto. ¿Cómo se puede lograr esto? Sé que se puede hacer mediante el manejo de errores, pero preferiría un método que evite un error.

Editar: por solicitud, agregando código que crea el error y el mensaje de error:

Código que causa el problema:

Sub PasteFromEmptyClipBoard()

    Selection.Paste

End Sub

Mensaje de error que recibo:

"Error en tiempo de ejecución '4605' Este método o propiedad no está disponible porque el Portapapeles está vacío o no es válido".