Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 And ComboBox2.ListIndex > -1 And ComboBox3.ListIndex > -1 _
Then TextBox1 = DateSerial(ComboBox3, ComboBox2, ComboBox1) Else TextBox1 = ""
End Sub
Private Sub ComboBox2_Change()
ComboBox1_Change
End Sub
Private Sub ComboBox3_Change()
ComboBox1_Change
End Sub