ComboBox Time Value/Command button click update

Ok try this:

Public TN As Date, T1 As Date, TS As Date, changeflag As Boolean

Private Sub ComboBox1_Change()
If changeflag = True Then Exit Sub

ComboBox1.Value = Format(ComboBox1.Value, "hh:mm:ss")
T1 = CDate(ComboBox1.Value)
TN = CDate(Now)
Label3.Caption = TN + T1
Label3 = Format(Label3, "hh:mm:ss")

End Sub
Private Sub ComboBox2_Change()
If changeflag = True Then Exit Sub

ComboBox2.Value = Format(ComboBox2.Value, "hh:mm:ss")
T1 = CDate(ComboBox2.Value)
TN = CDate(Now)
Label4.Caption = TN + T1
Label4 = Format(Label4, "hh:mm:ss")

End Sub
Private Sub ComboBox3_Change()
If changeflag = True Then Exit Sub

ComboBox3.Value = Format(ComboBox3.Value, "hh:mm:ss")

T1 = CDate(ComboBox3.Value)
TN = CDate(Now)
Label5.Caption = TN + T1
Label5 = Format(Label5, "hh:mm:ss")

End Sub
Private Sub CommandButton1_Click()
changeflag = True

ComboBox3.Value = ComboBox2.Value
ComboBox2.Value = ComboBox1.Value
ComboBox1.Value = Format(Now, "hh:mm:ss")
changeflag = False
End Sub