Private Sub ComboBox2_Change[B]()[/B]
Dim Dte as date
Dim StrSearch as String
With me
Str_Search=.ComboBox2
Dte=.ComboBox5
.TextBox1.Text =IIf(Str_Search=“S3”, DateAdd("m", 2, Dte), _
IIf (Str_Search="S6" , DateAdd("m", 5, Dte), _
DateAdd("m", 1, Dte))
End With
End Sub