Soru Kullanıcı Uyarı Mesajı

[sirkülasyon]

Dim mevcutYil As Integer
    mevcutYil = Year(Date)
    Dim secilenYil As Integer
    secilenYil = Val(ComboBox1.Value)
    If secilenYil = mevcutYil Then
    Else
        MsgBox "Mevcut Yıldan İleri Bir Yıl Seçtiniz. Tekrar Deneyiniz", vbCritical, "UYARI"
        ComboBox1.Value = ""
    End If

Yukarıdaki kodda MsgBox iki kere üst üste geliyor. Hatam nerede ise düzeltmem için yardımcı olabilir misiniz?

 

[BaY_KaPTaN]

Normalde gelmemesi lazım, farklı birşey var gibi. Örnek dosyayı atarsanız genel inceleme yapılabilir.