Seçmeli Deger Aktaran Vba İnput Kutusu

If (a=Inpotbox("kullanıcı kodunu giriniz"))=vbCancel then...
Gibi birsey yapmaya çalıştım ama olmadı...
Kullanmak üzere a ya deger aktarmak, vazgeçilmesi durumunda islemleri sonlandırmak istiyorum, bunun yöntemi nedir arkadaşlar,  şimdiden teşekkürler.

Dim a As String

    

    a= InputBox("kullanıcı kodu girin")

        

    'Cancel'a basılınca boş değer döner

    If a= "" Then

        MsgBox "cancel'a bastınız", vbInformation, "kapatılıyor"

        Exit Sub

    Else

       'boş girmezse çalışacak kodlar 

    End If

Şeklinde dener misiniz?

Çok teşekkürler, bu kısım da tamam.