1 - dosyanızı şifresiz yükleyin
2 - sorunun hangi formda hangi durumda oluştuğunu da belirtseydiniz çözümü bulmak daha kolay olurdu

sorun kodda kullandığını BEKAR koşulundan kaynaklanıyor
label25.captıon'a atadığınız bekar kelimesinin sonunda bir kaç boşluk var o nedenle sorun çıkıyor, eğer kodu aşağıdaki gibi düzenlerseniz düzelebilir

If  Label25.Caption= "Bekar" Then

yerine aşağıdaki gibi dener misiniz?

If InStr(1, Label25.Caption, "Bekar") > 0 Then