msgbox problemi

[kan-nas]

ub Button4_Click()
cevap = MsgBox("BU İŞLEM SADECE AYDA 1 KERE GEÇEN AYIN EN YÜKSEK TUTARINI OTOMATİK OLARAK HESAPLAMAK İÇİN TIKLAYINIZ..", vbCritical, vbYesNo, "çok önemli")
If cevap = vbNo Then
MsgBox " RAPOR ÇALIŞTIRILMADI..."

Her şekilde denememe vbcreitical,vbyesno ve başlık olarak"çok önemli" üçlüsünü mesaj olarak getiremedim.
İkili olarak problem çıkmıyor( vbCritical, vbYesNo veya vbCritical,"çok önemli") gibi.
Yardımlarınız için...

Bir de

Sub Button4_Click()
cevap = MsgBox("BU İŞLEM SADECE AYDA 1 KERE GEÇEN AYIN EN YÜKSEK TUTARINI OTOMATİK OLARAK HESAPLAMAK İÇİN TIKLAYINIZ..", vbCritical, vbYesNo)
If cevap = vbNo Then
MsgBox " RAPOR ÇALIŞTIRILMADI..."

(vbCritical, vbYesNo) ikilisini yapınca başlık kışmında 4 rakamı yazıyor.

 

[mbasaranyt]

cevap = MsgBox("BU İŞLEM SADECE AYDA 1 KERE GEÇEN AYIN EN YÜKSEK TUTARINI OTOMATİK OLARAK HESAPLAMAK İÇİN TIKLAYINIZ..", vbCritical+vbYesNo)
If cevap = vbNo Then
MsgBox " RAPOR ÇALIŞTIRILMADI..."

 

[uzmanamele]

merhaba

alternatif kod

Sub Düğme1_Tıklat()
If MsgBox("BU İŞLEM SADECE AYDA 1 KERE GEÇEN AYIN EN YÜKSEK TUTARINI OTOMATİK OLARAK HESAPLAMAK İÇİN TIKLAYINIZ..?", vbYesNo, "RAPOR HAZIRLA") = vbNo Then GoTo 10

If MsgBox("Son Kararınız mı??," & vbCrLf & vbCrLf & _
"Onaylıyor musunuz?", vbYesNo, "ONAY") = vbNo Then GoTo 10
MsgBox "ÇALIŞIYORUM...", vbInformation, "Onaylandı"
'... ilgili kodlar
'..
'..
Exit Sub
10
MsgBox "RAPOR ÇALIŞTIRILMADI...", vbCritical, "İptal"
Exit Sub
End Sub