Textbox'a ayın 1 inci gününü yazdırmak

[esnaf88]

Merhaba
Userformda iki adet textbox ile iki tarih arasında sorgulama yaptırmak istiyorum.
Birinci Textbox'a içinde bulunulan ayın 1 inci gününü, ikinci Textbox'a bugünü otomatik olarak nasıl yazdırabilirim?
Yardımcı olacak arkadaşlara teşekkür ederim.

 

[muhasebeciyiz]

Private Sub UserForm_Initialize()
TextBox1.Value = Format(DateSerial(Year(Date), Month(Date), 1), "dd.mm.yyyy")

TextBox2.Value = Format(Date, "dd.mm.yyyy")
End Sub

Deneyiniz

 

[esnaf88]

Denedim. Çalışıyor.
Çok teşekkürler.
İyi çalışmalar dilerim.