Calendar Value Using Data From A TextBox

[Boxer]

I have a Userform that has a TextBox named TextBox5 when double click, it opens a calendar form. When the calendar closes it places its value into TextBox5.

Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    FrmCal1.Show
    
End Sub

In the next TextBox (TextBox6) I Have a formula that uses the date value from TextBox5, Minus 6.

Private Sub TextBox6_Change()
'Set Date Using TextBos5's Input (Find Period Ending Using Pay Date)
    FrmInput1.TextBox6 = (DateValue(TextBox5.Value) - 6)
  
End Sub

This works fine, when I tab or enter into TextBox6. It performs its task and shows the value needed.

What I would like is to have this value entered automatically, without having to tab stop or enter into the TextBox6.

Thanks, any advice would be appreciated.