No código a seguir, gostaria que o programa encerrasse sem dar erro, quando o usuário clicasse no botão cancelar de alguma inputbox.
Sub CalcMedia()
Dim num1 As Integer
Dim num2 As Integer
Dim num3 As Integer
Dim media As Single
num1 = InputBox("Digite o primeiro número")
num2 = InputBox("Digite o segundo número")
num3 = InputBox("Digite o terceiro número")
media = (num1 + num2 + num3) / 3
MsgBox "Média: " & media
End Sub