Seçili Olmadığı halde ikaz vermiyor

[htsumer]

Aşağıdaki kodu kullanıyorum, OptionButton8 ve OptionButton9 işaretlenmediğinde İkaz veriyor. OptionButton5 İşaretlediğimde ve OptionButton6 işaretlenmediğinde halde ikaz vermiyor.

Yani OptionButton5 işaretlediğimde OptionButton6 işaretlenmedi diye ikaz vermiyor.Kısaca 4 OptionButton'dan biri işaretlenmediğinde ikaz vermiyor :S

If OptionButton8.Value = False And OptionButton9.Value = False Then
MsgBox "En Az Bir İmza Yetkilisi Seçmeniz gerek", vbInformation
Exit Sub
End If
If OptionButton5.Value = False And OptionButton6.Value = False Then
MsgBox "PARAFE Yetkilisi Seçmeniz gerek", vbInformation
Exit Sub
End If

 

[fireman64]

Yanlış anlamadıysam örnekteki gibi birşeymi istediniz?

 

[htsumer]

5 ve 6 bağımsız her ikisinide işaretlenmesi gerek..

 

[htsumer]

Tamam fikriniz aklımı başıma getirdi

If OptionButton8.Value = False And OptionButton9.Value = False Then
MsgBox "En Az Bir İmza Yetkilisi Seçmeniz gerek", vbInformation
Exit Sub
End If
If OptionButton5.Value = False Then
MsgBox "PARAFE Yetkilisi Seçmeniz gerek", vbInformation
Exit Sub
End If
If OptionButton6.Value = False Then
MsgBox "PARAFE Yetkilisi Seçmeniz gerek", vbInformation
Exit Sub
End If

 

[fireman64]

and or yapınca sorun çözülüyor

If OptionButton5.Value = False[COLOR="Red"] Or [/COLOR]OptionButton6.Value = False Then
MsgBox "PARAFE Yetkilisi Seçmeniz gerek", vbInformation
Exit Sub
End If

 

[htsumer]

Teşekkür ederim..Yardımlarınız için, sorun halloldu..Kolay gelsin