Private Sub TextBox6_Change()
If Not IsNumeric(TextBox6) Then Exit Sub
If TextBox3 - TextBox6 Mod 12 > 0 Then
TextBox7 = TextBox2 - Int(TextBox6 / 12)
TextBox8 = TextBox3 - TextBox6 Mod 12
TextBox4 = TextBox4
ElseIf TextBox3 - TextBox6 Mod 12 < 0 Then
TextBox7 = TextBox2 - Int(TextBox6 / 12) - 1
TextBox8 = TextBox3 - TextBox6 Mod 12 + 12
TextBox4 = TextBox4
End If
End Sub