Soru Yıl ve Aya göre ay ilk ve son günleri textboxa alma

[sirkülasyon]

Ustam Combobox1 Yıl (2021,2022 Gibi) , Combobox2 Ay (Ocak, Şubat Gibi)
Textbox2 ye Seçilen yıl ve aya göre 01/08/2021 - 31/08/2021 gibi ilk günü ve son günü nasıl alabilirim?
Teşekkür ederim

 

[veyselemre]

Private Sub UserForm_Initialize()
    For i = 2021 To 2025
        ComboBox1.AddItem i
    Next i
    For i = 1 To 12
        ComboBox2.AddItem Format(DateSerial(2000, i, 1), "MMMM")
    Next i
End Sub

Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 Then
        TextBox2.Text = Format(DateSerial(ComboBox1.Text, ComboBox2.ListIndex + 1, 1), "dd.mm.yyyy") & " - " & _
                        Format(DateSerial(ComboBox1.Text, ComboBox2.ListIndex + 2, 1) - 1, "dd.mm.yyyy")
    End If
End Sub

 

[sirkülasyon]

Veysel Abi
Allah razı olsun. Eline emeğine sağlık