Esta pregunta ya tiene una respuesta aquí:

Tengo un cuadro de entrada que le pide al usuario que ingrese una fecha. ¿Cómo le hago saber al programa que se detenga si el usuario hace clic en cancelar o cerrar el diálogo de entrada en lugar de presionar OK?

Algo comoif str=vbCancel then exit sub

Actualmente, el usuario puede presionar OK o Cancelar pero el programa aún se ejecuta

str = InputBox(Prompt:="Enter Date MM/DD/YYY", _ Title:="Date Confirmation", Default:=Date)