Botão cancelar da inputbox?

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