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