Soru Tarih aralığına göre textboxa tarih girişi

[sirkülasyon]

Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
X = TextBox11.Value
a = Left(X, Application.Find("-", X) - 1)
b = Right(X, Len(X) - Application.Find("-", X))
ilktar = a
sontar = b
TextBox8 = Format(TextBox8, "dd.mm.yyyy")
If TextBox8 < ilktar Or TextBox8 > sontar Then
TextBox8 = ""
End If
End Sub

Textbox11 = 01.04.2022-30.04.2022
a =01.04.2022
b=30.04.2022
Textbox8' e girilecek tarih a ile b arasında olacak. Başka tarih girilirse kabul etmeyecek.
Yukarıda ki kod bloğuna göre bu durumu gerçekleştiremedim. Yardımcı olabilir misiniz?