Önemli Yarcımcı Olabilcek Arkadaş Varmı

[uesturk]

Resimdeki gibi userformlarım var ve şunu yapamadım IlkTarih butonuna tıklandığında seçilen tarih textbox1 e gelsin SonTarih butonuna tıklandığında seçilen tarih textbox2 e gelsin yardımcı olabilirmisiniz?
Bu şekilde yazıyorum nerede yanlışım var acaba?

Private Sub D1_Click()

If RaporForm.Trh1 = True Then
RaporForm.txb1.Value = CalendarFrm.D1.ControlTipText
Else: Unload CalendarFrm
End If

End Sub