vb 6.O problem anybody can fix this,,or suggest the way....

Private Sub CmbMonth2_Click()
    Dim i As Integer, dt As String
    CmbDay2.Clear
    dt = CmbDay1.Text & "/" & CmbMonth1.Text & "/" & CmbYear1.Text
    For i = 1 To DateDiff("d", DateAdd("d", 7, dt), DateAdd("m", 1, DateAdd("d", 7, dt)))
        CmbDay2.AddItem i
    Next i
    CmbDay2.Text = Day(DateAdd("d", 7, dt))....error in this line 386 runtime text property read only.
End Sub