InputBox ın Cancel butonu nasıl kullanılır?

[dEdE]

Mrb

Sor = InputBox("Lütfen Belgenin Veriliş Nedenini Yazınız.", "BELGENİN VERİLİŞ NEDENİ")

koduyla kullanıcıdan aldığım bilgiyi başka bilgilerle birleştirerek yazıcıya gönderiyorum.
Son anda yazdırmaktan vazgeçip, InputBox un Cancel butonunu kullanarak Exit Sub işlemi yapabilirmiyiz.
MsgBox ta böyle bir özellik var, ancak InputBox için bunu yapamadım. Yardımlarınızı bekliyorum.

 

[Haluk]

Örnek:

Private Sub CommandButton1_Click()
    sor = Application.InputBox("Lütfen Belgenin Veriliş Nedenini Yazınız.", "BELGENİN VERİLİŞ NEDENİ")
    If sor = False Then
        MsgBox "''Cancel'' tuşuna bastınız."
    ElseIf sor = Empty Then
        MsgBox "Giriş yapmadınız"
    Else
        MsgBox "Girdiğiniz veri = " & sor
    End If
End Sub

 

[dEdE]

:bravo: :bravo: :bravo:

Teşekkürler, Saygılar.