With Calendar1
Set .RefBox = Me.TextBox_dlc
.Caption = "DLC"
Select Case True
Case IsDate(Me.TextBox_dlc): .RefDate = Me.TextBox_dlc
Case IsDate(Me.TextBox_date_congel): .RefDate = DateAdd("m", 6, Me.TextBox_date_congel)
Case Else: .RefDate = DateAdd("m", 6, Date)
End Select
.Show
If IsDate(.Resultat.Value) Then TextBox_dlc = CDate(.Resultat.Value)
End With
Unload Calendar1