Esta pergunta já tem uma resposta aqui:

Eu tenho uma caixa de entrada pedindo ao usuário para inserir uma data. Como faço para que o programa saiba parar se o usuário clicar em cancelar ou fechar a caixa de diálogo de entrada em vez de pressionar ok.

Algo comoif str=vbCancel then exit sub

Atualmente, o usuário pode pressionar OK ou Cancelar, mas o programa ainda é executado

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