tam olarak sorun ne, doğru çalışmıyor mu?
siz ne yapmak istiyorsunuz, kod ne yapıyor?
ayrıca aşağıda kullanılan yapı hatalı
exit sub yazdıktan sonra işlemden çıkılır dolayısıyla mesaj verme kodu çalışmaz
bu nedenle msgbox kısmı exit sub ın üstüne yazılmalı
If MsgBox("Eksik Bilgi var, Evci Gidiş yada Evci Dönüş Tarihlerini Girmemiş Olabilirsiniz ? Yine de devam etmek istiyor musunuz ?", vbYesNo, "DIKKAT") = vbYes Then
MsgBox ("Eksik Bilgi var, Evci Gidiş yada Evci Dönüş Tarihlerini Girmemiş Olabilirsiniz ?")

Komut5_Click
Exit Sub
MsgBox "..... Veriler Aktarılmadı .....", vbInformation
Else