Soru Eğer Textbox belirlenen değerden büyükse

[sirkülasyon]

If TextBox17.Value > TextBox16.Value Then
   TextBox17.Value = ""
   TextBox20.Value = ""
   TextBox22.Value = ""
   TextBox17.BackColor = rgbRed
   TextBox17.SetFocus
   Else
   TextBox17.BackColor = rgbWhite
 End If

Ustam yukarıda ki kod ile Textbox17 büyükse Textbox16 dan veri girişini engelliyor.

Bir değişiklik yapmak istiyorum.
Eğer Textbox17 büyükse Textbox16 dan kullanıcıya "Girmek istediğiniz değer Textbox16 dan büyük. Yine de işlem yapmak istiyor musunuz?" sorusunu soracak. EVET ise girilen rakama izin verecek. HAYIR ise yukarıda ki kod çalışacak.
Rica etsem yardımcı olabilir misiniz?

 

[askm]

Aşağıdaki şekilde deneyin.

If TextBox17.Value > TextBox16.Value Then
sor = MsgBox("Girmek istediğiniz değer Textbox16 dan büyük. Yine de işlem yapmak istiyor musunuz?", vbYesNo, "DİKKAT!")
If sor = vbYes Then
   TextBox17.Value = ""
   TextBox20.Value = ""
   TextBox22.Value = ""
   TextBox17.BackColor = rgbRed
   TextBox17.SetFocus
Else
   TextBox17.BackColor = rgbWhite
 End If

 

[sirkülasyon]

Sağ Olasın.
Teşekkür ederim.